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PREFACE 


MANUAL OBJECTIVES 


This manual contains detailed information about the FORTRAN IV-PLUS 
Object Time System (OTS) not contained in the FORTRAN IV-PLUS User's 
Guide. The material in this manual is not necessary for normal use of 
FORTRAN IV-PLUS. However, many users do require a more detailed 
knowledge of the OTS for specialized applications. This manual should 
be especially useful for programmers interfacing MACRO-11 and FORTRAN 
routines to the OTS. 


INTENDED AUDIENCE 


The reader is assumed to be proficient in MACRO and FORTRAN, and to be 
familiar with all the information presented in the FORTRAN IV-PLUS 
User's Guide, as well as the operating system's Executive Reference 
manual and I/O Operations Reference manual. 


The material presented here is for information purposes. Internal OTS 
interfaces are NOT guaranteed to remain constant across releases of 
FORTRAN IV-PLUS. The use of calls to the OTS identical to the 
compiled code callis, and the use of the named offsets of the OTS will 
provide as much release-to-release compatibility as is possible. 


DOCUMENTATION CONVENTIONS 


Unless otherwise noted, all numeric values are represented in decimal 
notation. Values in MACRO-1l1l1 examples are in octal notation. 


Unless otherwise specified, all commands terminate in a carriage 
return. 


Variable information is indicated by lowercase characters, whereas 


literal information (i.e., must be entered exactly as shown) is 
indicated by all uppercase characters. 
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CHAPTER 1 


INTRODUCTION 


There are two versions of the FORTRAN IV-PLUS (F4P) Object Time System 
(OTS) : one for RSX-11M, and one for RSX-11D and IAS. Either version 
can be built from the standard distribution kit. The hardware 
environment required is a PDP-11/45, 11/50 or 11/70 with Floating 
Point Processor (FP11). Optional hardware supported by the operating 
system is supported by the OTS. 


1.1 OBJECT TIME SYSTEM SUMMARY 
The FORTRAN IV-PLUS OTS is a library of assembly language modules that 
complements the compiled code. The OTS is composed of five principal 
parts: 

1. I/O processing routines. 

2. Mathematical functions and system subroutines. 

3. Compiled-code support routines. 


4. Error and exception-condition processing routines. 


5. Tables, buffers and impure storage required by the routines. 


1.1.1 I/O Processing Routines 


The I/O processing routines are designed as a collection of small 
modules so that only those modules reguired by a given FORTRAN source 
program are actually loaded in the user's task. 


An I/O statement produces three types of subroutine calls: 
1. An initialization call. 
This call sets up the I/O system for the specific I/0 
requested, opens the specified logical unit if necessary, and 
declares the I/O system to be active. 
2. Element transmission calls (if any) 
Each entity in the I/O list generates a call. to the OTS. 


Each call transmits a single value except in the case of 
arrays, which are transmitted through a single call. 
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3. A termination call 


This call completes the I/O operation and declares the I/O 
system inactive. 


For example, the FORTRAN statements: 


DIMENSION A(10) 
READ (2) I,A,B 


are compiled into the code: 


MOV #2,-(SP) sunit number 

JSR PC,ISUS sinitialize READ 

MOV #1,-(SP) s;address of I 

JSR PC,IOAIS ;transmit integer 
MOV #ASADB,-(SP) saddress of ADB for A 
JSR PC,IOAAS ;transmit array A 
MOV” #B,-(SP) saddress of B 

JSR PC,IOARS s;transmit real 

JSR PC,SEOLST send-of-list 


The various routines are described in Chapter 3. 


1.1.2 Mathematical Functions and System Subroutines 


The mathematical routines, called processor-defined functions (PDF's), 
are called from the compiled code using special names as described in 
the FORTRAN IV-PLUS User's Guide. The algorithms used for. the 
Iathematical library routines are described in Appendix B of the 
FORTRAN IV-PLUS User's Guide. 


The system subroutines are described in Appendix D of the FORTRAN 
IV-PLUS User's Guide. 


1.1.3 Compiled-Code Support Routines 


These routines complement the compiled code by performing operations 
too complicated or cumbersome to perform with in-line code. Examples 
are array subscript checking, exponentiation and complex arithmetic. 


1.1.4 Error Processing Routines 


Errors detected by the OTS are signaled by executing a TRAP 
instruction with the error number in the low byte of the instruction. 
Floating point processor asynchronous traps are processed by a service 
routine within the error processing modules. 


There are two methods of error recovery: an 'ERR=' transfer within an 
I/O statement, or a return to the error site for appropriate action. 
The actual action taken is determined by a byte within the OTS impure 
storage. Each defined error number has a corresponding error control 
byte which may be accessed using the FORTRAN-callable subroutines, 
ERRSET, ERRTST and ERRSNS. 
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1.2 CONVENTIONS AND STANDARDS 


The following sections describe procedural and naming conventions used 
in the FORTRAN IV-PLUS system. 


1.2.1 Registers 


The processor general registers are referred to as: 


RO - R5 = Register 0-5 
SP = Register 6 
PC = Register 7 


The Floating Point Processor accumulators 0-5 are referred to as 
FO-F5. 


1.2.2 Calling Sequences 


Four different calling sequence conventions are used by the FORTRAN 
IV-PLUS compiled code to call various components of the OTS. The 
calling conventions, and their usage, are described below: 


1. R5 Calis - The standard PDP-11 FORTRAN Calling Sequence 
Convention, used for all system subroutines, most 
processor-defined functions, and all user routine calls. 


2. PC Calls - Used for I/O operations and system dependent 
routines. 


3. R4 Calis - Used for out-of-line, stack-oriented arithmetic 
routines and certain miscellaneous compiled-code support 
routines. 


4. FO Calls - Used for faster calls to certain processor-defined 
functions. 


1.2.2.1 R5 Calls - This calling sequence convention is the standard 
PDP-11 FORTRAN Calling Sequence Convention. It is described in detail 
in the FORTRAN IV-PLUS User's Guide and is summarized below. 


The basic form of the call is 
s IN INSTRUCTION-SPACE 
MOV #LIST,R5 sADBRESS OF ARGUMENT LIST TO 


. ; REGISTER 5 
JSR PC,SUB :;CALL SUBROUTINE 


7 IN DATA-SPACE 


LIST: -BYTE N,0 7;NUMBER OF ARGUMENTS 
-WORD ADR1 ;FIRST ARGUMENT ADDRESS 
-WORD ADRN ;N'TH ARGUMENT ADDRESS 


Note that the argument list must reside in Data-space and that except 
for label type arguments, all addresses in the list must also refer to 
Data-space. 


1=3 
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Also note that the byte at address LIST+l should be considered 
undefined and not referenced. This byte is reserved for use as 
defined by DIGITAL. 


Control is returned to the calling program by restoring (if necessary) 
the stack pointer (SP) to its value on entry and executing 


RTS PC 
Function subprograms return a single result in the processor general 


registers. The register assignments for returning the different 
variable types are listed below: 


Type Result in 
INTEGER* 2 
LOGICAL*1 RO 
LOGICAL*2 
INTEGER*4 RO -- low order result 
LOGICAL* 4 Rl -- high order result 
REAL RO -- high order result 
Rl -- low order result 
DOUBLE RO ~- highest order result 
PRECISION R]l -- 
R2 -- 
R3 -- lowest order result 
COMPLEX RO -- high order real result 
Rl -- low order real result 
R2 -- high order imaginary result 
R3 -- low order imaginary result 


A calling program must Save any values in general purpose registers R0 
through R5 which it requires after a return from a subprogram. The 
argument list pointer value in register R5 can not be assumed to be 
valid after return. Any floating point registers in use by a calling 
program must also be saved and restored by the calling program. The 
calling program can not assume that the floating point status bits I/L 
(integer/long integer) or F/D (floating/double precision) are restored 
by the called routine. 


Null arguments are represented in an argument list by using an address 
of -l (177777 octal). This address is chosen to assure that the use 
of null arguments, in subprograms that are not prepared to handle 
them, will result in an error when the routine is called. The errors 
most likely to occur are illegal memory reference and/or word 
reference to odd byte address. 


1.2.2.2 PC Calls ~ These calls receive all arguments on the_ stack, 
are called with a JSR PC,xxx, and return with the arguments deleted 
from the stack. Registers RO-R5, FO-F5 and the FPP status register 
are unmodified. 


All I/O statements except OPEN and CLOSE are implemented by one or 
more calls using this convention. The STOP, PAUSE, Computed GO TO and 
Assigned GO TO statements use this convention. Array subscript 
checking, if enabled, and task initialization use this convention. 
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Example: 
The FORTRAN statement: 
REWIND 3 
is compiled into the code: 


MOV’ #3,-(SP) sunit number 
JSR PC, REWIS ;REWIND processor 


1.2.2.3 R4 Calls - This convention is used for out-of-line, 
stack-oriented arithmetic routines and other compiled-code support. 
These routines receive argument values on the stack, or a pointer to 
an argument value as an in-line argument immediately following the 
call. The stack arguments are deleted and a result value is’ returned 
on the stack. The routine is called with a JSR R4,xxx instruction. 
Registers RO-R4, FO-F5 and the FPP status register are assumed to be 
modified by R4 calls. R5 is preserved. The modules that use this 
convention are described in Chapter 7. 


Example: 
The FORTRAN statement: 
X=A**T 


is compiled into the code: 


MOV A+2,-(SP) ;push A 

MOV A,-(SP) 

JSR R4, PWRICS ;compute A**T 
-WORD I saddress of I 
MOV (SP)+,X ;Sstore at X 


MOV (SP)+,X+2 


1.2.2.4 FO Calls - This convention is used for some commonly used 
processor-defined functions. The FPP F/D status bit is set to the 
type of argument and the argument is loaded into FO. The routine is 
called with a JSR PC,xxx instruction. The result value is returned in 
FO with the FPP F/D status bit preserved. Registers RO-R5, F1-F5 and 
the FPP I/L status bit are assumed to be modified. The functions that 
use this convention are named $$xxxx and are described in Section 6.1. 


Example: 
The FORTRAN statement: 
Y = SIN(X) 


is compiled into the code: 


SETF ;set FPP mode 
LDF xX,FO 

JSR PC,SSSIN 

STF FO,Y 
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125265 Special Call Conventions - In addition to the four general 
calling conventions, special variants are used in the following cases: 


OPEN (OPENS) and CLOSE (CLOSES) statements use the R5 convention with 
a special argument list encoding. 


Object-time format compilation (FMTCV$) uses a PC call but returns a 
stack result, which is used in a subsequent I/O initialization call. 


Adjustable array initialization (MAK1$, MAK2S, and MAKNS$) uses a= PC 
call but preserves only R5. 


Traceback name initialization (NAMS$) uses a co-routine call. 


These special usages are described in detail in the corresponding 
module descriptions. 


1.2.3 Data Formats 


The data formats are described in the FORTRAN IV-PLUS User's 
Guide. 


1.2.4 Labeling Conventions 


All OTS routines have a title that begins with '$"' followed by the 
name or a contraction of the name. All external entry point names 
contain a 'S$' as either the first or last character. 


1.2.5 Context Save and Restore 


The OTS register context conventions are determined by the calling 
sequence used, as described in Section 1.2.2. 


Internal to the OTS, various conventions are used. In general the 
calling routine saves those registers it requires. 


1.3 COMPATIBILITY WITH FORTRAN IV (FOR) 


The OTS's for F4P and FOR are Similar but NOT identical and cannot be 
used together in the same task. They do however have identical FFDB 
(see Section 2.3) definitions and some common modules. The impure 
areas and errors are defined to have identical values for identical 
use (i.e., offset VARAD is the list element address in both systems, 
and error ICERR is the input conversion error code in both systems.) 
Some FORTRAN IV-PLUS OTS modules contain conditional assembly code for 
FORTRAN IV. This code is conditionalized on the definition of symbol 
F4, 


1.4 ASSEMBLY LANGUAGE INTERFACING TO THE OTS 


The following short sections provide a brief summary of the methods of 
interfacing a MACRO-11 program to the FORTRAN IV-PLUS OTS. 
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1.4.1 Writing a FORTRAN Main Program in Assembly Language 


The following MACRO-11 code represents a "canonical" FORTRAN main 
program: 


START: : 


JSR PC, OTIS initialize the OTS and FCS 


=e 


first 3 letters of name in RADIX-50 
last 3 letters of name in RADIX-50 
initialize traceback chain if desired 


MOV #°R<.MA>,-(SP) 
MOV #°R<IN.>, R4 
JSR R4, NAMS 


=e ™O TO 


close files and exit 

link in the impure area 

floating point format conversions 
logical format conversions 
integer format conversions 


JSR PC, EXITS 
- GLOBL SOTSVA 
- GLOBL RCIS$ 
- GLOBL LCI$ 
- GLOBL ICI$ 
- END START 


=e ~e Se Ne OMe 


The call to OTIS initializes the FPP (SFPASS), the SST vector (SVTKSS) 
and FCS (FINITS). The reference to SOTSVA loads the FORTRAN impure 
area. The references to the format conversion routines are required 
only if the desired conversion routine is reguired. Note that a 
FORTRAN subprogram that contains a FORMAT statement will contain the 
required format conversion references. 


1.4.2 Linkage to the FORTRAN Impure Storage Area 


The FORTRAN impure area defines a global symbol (SOTSVA) that is 
referenced by the compiled code in FORTRAN main programs (but not 
subprograms!). When the Task Builder processes a reference to this 
symbol, it loads the FORTRAN impure area and causes an additional 
global symbol (S$OTSV) to be defined in the task that contains’ the 
address of the symbol SOTSVA. All of the FORTRAN OTS routines obtain 
the address of the impure area by referencing the contents of the 
location SOTSV; see the discussion of SAOTS macro in Section 9.2.4. 
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DATA BASE 


The information used and manipulated by the OTS is maintained in two 
major areas of impure storage: the work area and the device table. 


The work area contains two kinds of information: task-specific data, 
such as address pointers, and information on the currently active 
operation, such as a direct access record number. 


The device table contains a block of storage for each logical unit 
allocated to the FORTRAN OTS. This block contains all the information 
the OTS requires to perform I/O to the unit. 


2.1 PROGRAM SECTION DESCRIPTIONS 


This section describes the program sections (PSECTs) used by the OTS. 
PSECTS are named segments of code or data. The attributes associated 
with each PSECT direct the Task Builder when constructing an 
executable task image. 


2.1.1 SSOTSI -- OTS Instructions 


This PSECT contains all of the executable code in the OTS except the 
formatted and list-directed I/O processors. This PSECT has the 
attributes: RW,1I,CON,LCL. 


2.1.2 SSOTSD -- OTS Pure Data 


This PSECT contains all of the read-only pure data in the OTS except 
the formatted and list-directed I/O data. This PSECT contains 
constants and dispatch tables used by the code in $S$OTSI. It has the 
attributes: RW,D,CON,LCL. 


2.1.3 $SAOTS -- OTS Impure Storage 


SSAOTS contains the FORTRAN work area impure storage associated with 
each task. It must be contained in the task's root segment and is 
pointed to by the contents of global symbol SOTSV. A detailed 
description is contained in Appendix A. All references in this manual 
to "the work area" or "the FORTRAN work area" apply to this PSECT, 
which has the attributes: RW,D,CON. 
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2.1.4 $$DEVT -- Logical Unit Device Table 


SSDEVT defines the FORTRAN logical unit device table. The entries in 
this table are fixed-length FORTRAN File Descriptor Blocks (FFDBs). 
An FFDB is composed of a File Control Services (FCS) FDB and a _ 6-word 
header for FORTRAN usage. At task startup, the actual number of FFDBs 
available to the FORTRAN task is determined from the size of S$SDEVT. 
This area is pointed to by the value of offset W.DEV in the work area. 
This PSECT has the attributes: RW,D,OVR. 


2.1.5 S$SIOB1 -- User Record Buffer 


S$SIOBl1 defines the FORTRAN user record buffer. The length is 
determined at task build time by the MAXBUF keyword; the default 
value is 132 (decimal) bytes. This area is pointed to by offsets 
W.BFAD (start address) and W.BEND (end address+l) in the work area and 
its length is computed at task initialization and stored at offset 
W.BLEN in the work area. This PSECT has the attributes: RW,D,OVR. 


2.1.6 $SOBF1 -- Object-Time Format Buffer 


SSOBF1 defines the FORTRAN object time format buffer. The length is 
determined at task build time by the FMTBUF keyword; the default 
value is 64 (decimal) bytes. This area is pointed to by offsets 
W.OBFL (start address) and W.OBFH (end address+1) in the work area. 
This PSECT has the attributes: RW,D,OVR. 


2.1.7 Format Conversion PSECTs 


The formatted and list-directed I/O processors minimize task size by 
loading only those format conversion modules referenced by the user's 
format specifications. Each module is in an independent PSECT and 
places a pointer to itself in a special PSECT used as a dispatch 
table. These PSECTs have the global (GBL) attribute to ensure that 
this collection of modules will be placed in the lowest common seqment 
of an overlaid task. . 


The PSECTs are named as follows: 


SSFIOC Contains the format processor code and the list-directed 


processor code; 
-S$FIOD - Contains the format and list-directed processor pure data; 
SSFIOI - Contains the integer and octal conversions; 
S$$FIOL - Contains the logical conversions; 
SS$FIOR - Contains the floating point conversions; and 


S$FIO2 - Contains the conversion dispatch table. 


2.2 IMPURE STORAGE DESCRIPTION 


This section describes the contents of the FORTRAN impure storage 
PSECT SSAOTS. 
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2.2.1 Named Offsets 


The named offsets comprise the first 167 words of the work area. They 
have names of the form W.xxxx or xxxxxx. There are both word and byte 
offsets as well as a l6-word pushdown list for format processing. 
Several words in the work area are used in more than one context. 
Consult Appendix A for the list of offsets and their use. 


2.2.2 QIO Directive Parameter Block 


The work area contains a 12-word DPB for performing error message 
QIO's to the user's terminal using event flag 30. This DPB is used in 
RSX-11M for all message output and in RSX-11D and IAS if the message 
output task (MO....) is not loaded or not present. 


2.2.3 Error Message Text Buffer 


A buffer for the error text message line is allocated. This buffer is 
57 words in RSX-11D and IAS, and 32 words in RSX-11M. This buffer is 
pointed to by offsets W.ERLN (start address) and W.ERLE (end 
addresst+l). 


2.2.4 Error Control Table 


A 56-word area for the error control table is allocated with one byte 
for each error. These are impure data and are used and manipulated by 
the error handling routines. A prototype version of the table is 
copied into this area by the task initialization routine OTIS. 


2.2.5 Synchronous System Trap Vector Table 


The Synchronous System Trap (SST) vector address table, $SST, contains 
an entry for each defined SST. User level modification or 
interception of trap vectors is described in Section 5.7. 


2.3 LOGICAL UNIT DEVICE TABLE 


All FORTRAN input/output is done through logical units. Each unit has 
a FORTRAN File Descriptor Block (FFDB) allocated in the PSECT $SDEVT. 
There is one FFDB allocated for each unit declared in the Task Builder 
UNITS= statement or the default value of 6 units. Each FFDB is a 
fixed length block consisting of an FCS FDB and a 6-word header for 
FORTRAN usage. Each FFDB is initialized to 0 at task initialization 
and is also zeroed by a close operation. 


2.3.1 FFDB Offsets 


The FORTRAN header portion of the FFDB is described by offsets of the 
form D.xxxx as follows: 


D.STAT - status word 1 (bits defined below) 
D.STA2 - status word 2 (bits defined below) 
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D.RCNM - number of direct access records (low order) 

D.RCN2 - number of direct access records (high order) 

D.RCCT - record count for BACKSPACE (low order) 

D.RCC2 - record count for BACKSPACE (high order) 

D.AVAD - direct access associated variable address (0 if not 
present) 


Several of the words have different uses depending upon the kind of 
I/O operations. 


2.3.2 FFDB Status Bit Definitions 

The FORTRAN header portion of the FFDB contains two status words. The 
bits contained in these status words have symbolic names of the form 
DV.xxx. Definitions of these bits follow: 


Status bits - word 1 


DV.FAK - only a partial FFDB is allocated for ENCODE/DECODE 
DV.FNB ~ File Name Block is initialized 

DV .-DFD - direct access unit 

DV.FACC - file attributes byte of FDB (F.FACC) is defined 
DV.OPN - unit is open 

DV.FMP - formatted unit 

DV.UFP - unformatted unit 

DV.ASGN -—- filename is defined 

DV.CLO - close in progress 

DV.FRE - free format allowed (short field termination) 
DV.RW - input or output operation (0 = read, 1 = write) 


status bits - word 2 


DV.AI4 - associated variable is INTEGER*4 
DV.CC - explicit carriage control 
DV.SPL - DISP ‘PRINT' specified 


DV.DEL - DISP 'DELETE' specified 
DV.SAV - DISP = 'SAVE' specified 
DV.RDO - READONLY specified 

DV.UNK - TYPE = 'UNKNOWN' specified 
DV.OLD - TYPE = 'OLD' specified 
DV.NEW - TYPE = 'NEW' specified 
DV.SCR - TYPE = 'SCRATCH' specified 
DV.APD ~- ACCESS = 'APPEND' specified 


2.4 ERROR PROCESSING DATA STRUCTURES 


Error processing and reporting in FORTRAN IV-PLUS is done through TRAP 
instructions. The low byte of the TRAP contains the FORTRAN error 
number plus 128 (decimal). The error processing is controlled by an 
error control byte in impure storage. 


The FORTRAN error numbers range from 1 to _ 110 (decimal). Not all 
numbers are defined. Appendix C of the FORTRAN IV-PLUS User's Guide 
describes the errors in detail. 


The error control byte is bit-encoded. The bit descriptions are: 


EC.CON - continue 
EC.CNT - count 
EC.UER - use ERR= exit if 1, return if 0 
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EC.LOG - log 

EC.INU - this number defined for use 
EC.RTS - return continuation permitted 
EC.ERE - ERR= continuation permitted 


The sign bit is unnamed, but if clear, this error has not occurred; 
if set, the error has occurred. This bit is tested and cleared by the 
ERRSET system subroutine. 


The standard bit combinations used are: 


Fatal 
Errors: EC.FAT 


EC.INU + EC.LOG 


I/O 
Errors: EC.IO 


EC.INU + EC.CON + EC.CNT + EC.LOG + EC.UER + EC.ERE 


Other 
Errors: EC.NRM 


EC.INU + EC.CON + EC.CNT + EC.LOG + EC.RTS 


2.5 ARRAY DESCRIPTOR BLOCKS 


Array descriptor blocks (ADBs) are used for dummy arrays, input/output 
Statements that transmit an entire array, and array subscript checking 
(/CK compiler switch). The ADB is initialized at compile time for all 
constant items. Variable portions of ADBs for dummy arrays are 
initialized at subprogram entry. The ADB contains the array base 
address, the array zeroth-element address, the upper and lower bounds 
and the dimension spans for each dimension. 


2.5.1 ADB Offsets 


The offsets within the ADB are denoted as follows: 


A.ASTR - actual base storage address (lst element) 

A.AO -~ zeroth-element address (address of A (0,0,0...0)) 

A.CWRD - codeword containing the number of dimensions, data 
type, and element size in bytes: 

5 bits 3 bits 8 bits 

A.BPE - number of bytes per array element (BPE) (low byte of 
A.CWRD) 

A.D1 - first dimension span. (Other dimensions follow A.D1l 
but are not named; i.e., A.D1+2 is the second 
dimension span.) Dimension spans are described in 
Section 2.5.2. 

A.SIZB - total array size in bytes, A.SIZB = D1*D2*...Dn*BPE 

A.PLYA - addressing polynomial evaluated for the first element, 


polyA (L1,L2,...Ln) 
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A.PWRD - (used for adjustable arrays) 2N 1-bit fields denoting 
an adjustable/non-adjustable bound. Encoding is left 
justified as follows: 


Cee [eT [ee ee 


A.UN ~- last upper bound. (Other bounds are stored in front 
of A.UN but are not named; i.e., A.UN-2 is the last 
lower bound, A.UN-4 is the next-to-last upper bound, 
etc.). 


The data type codes contained in A.CWRD are: 


A.LGCl = LOGICAL*1 (BYTE) 

A.LGC2 = LOGICAL*2 

A.LGC4 = LOGICAL*4 

A.INT2 = INTEGER*2 

A.INT4 = INTEGER*4 

A.REA4 = REAL*4 

A.REA8 = REAL*8 (DOUBLE PRECISION) 
A.CMP8 = COMPLEX 

'“A.HOLL = Hollerith 


These codes are used not only for ADB's, but also for I/O transmission 
to denote the list item data type. 


2.5.2 Array Dimension Spans 

The dimension spans (Di) for arrays are the sizes of each dimension: 
Di = upper bound (Ui)-lower bound (Li) + l. 

Dimension spans are used to determine the subscript value by the 


compiled code. The upper bounds and lower bounds for arrays are 
retained in the ADB for determining the size and shape of arrays. 


2.5.3 Notes on ADB Usage 


The array addressing polynomial function, polyA, for a 3-dimensional 
array is defined by: 


DIMENSION A(L1:U1,L2:U2,L3:U3) 

polyA (1I,J,K)=((K*D2+J) *D1+I) *BPE 

A.AO is defined as A.ASTR - polyA (L1,L2,L3) 

The address of an array element is then calculated as: 

address of A(i,j,k)=A.ASTR+polyA(i,j,k) -polyA (L1,L2,L3) 
=A.A0+polyA(i,j,k) 


Array bounds checking consists of verifying that the array element 
address is: 


1. greater than or equal to the base address, A.ASTR 
2. less than the high address + 1, A.ASTR+A.SIZB 
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Note that this means only that the complete subscript value is within 
the array; individual dimensions are NOT checked against their 
corresponding dimension bounds. 

The FORTRAN statements: 


SUBROUTINE X(A,N) 
DIMENSION 1(100), A(10:N-1,N) 


create the following ADB's for I and A: 


no Di values since I is not 
an adjustable array 


-WORD 310 ; A.SIZB 
I.ADB: - WORD I ; A.ASTR 

- WORD I-2 ; A.AO 

- WORD 20402 ; A.CWRD 


.-WORD 12 7 L 1 = 10 
-WORD 0 7 U1 = N-1l 
«WORD 1 ; L2 =1 
«WORD 0 : U2 =N 
-WORD 120000 ; A.PWRD 
-WORD 0 ; A.SIZB 
A.ADB: -WORD 0 ; A.ASTR 
-WORD 0 ; A.AO 
-WORD 31004 ; A.CWRD 
«WORD 0 7 D1 
-WORD 0 ; D2 


2.6 TRACEBACK CHAIN 


The traceback chain for error processing is a linked list constructed 
dynamically on the run-time stack. ; 


The list head and the current statement number are contained in the 
work area. The list head is at offset W.NAMC with global name SNAMC. 
The current statement number is at offset W.SEQC with global name 
SSEQC. 


The list elements are 4-word blocks located on the stack in the 
following form: 


The list head points to the currently active program unit entry. This 
block contains the currently active program unit name in Radix-50; 
the current statement number in the calling program at the time of the 
call; anda pointer to the calling program list block. Note that the 
statement number pertains to the program unit of the NEXT list block 
since the current program unit statement number is maintained at the 
fixed global location $SEQC. 


SNAMC -> 
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NOTE 


This list structure is "known" to the 
RSX-11D and IAS message output task (MO) 
and cannot be changed. 


If traceback level NONE is used, no list block is created. 


If traceback level NAMES is used, a list block is linked in but SSEQC 
is zero. 


If traceback level BLOCKS is used, a list block is linked in and SSEQC 
is periodically updated with the negative of the current statement 
number, i.e., -21 for statement 21. 


If traceback level LINES is used, a list block is created and SSEQC is 
incremented on every statement, i.e., a positive number is maintained. 


CHAPTER 3 


INPUT/OUTPUT PROCESSING 


This chapter discusses the basic procedures, program flow and module 
interdependencies of the I/O processing portion of the OTS. 


3.1 COMMON I/O SUPPORT 


This section documents the processing common to all forms of 
input/output: opening files, closing files, accessing the device 
table, default values, I/O initialization and element transmission. 


All OTS I/O calls preserve the user-level register state and generally 
take all arguments on the stack and return with stack arguments 
deleted. During I/O processing the calling program generally saves 
those registers it requires and passes arguments in registers. The 
actual conventions used are given in the module descriptions. 


The general form of I/O involves three phases: 


1. An initialization call to an operation-specific module as 
shown in Table 3-1. 


These modules set the correct maSk word for the operation 
into Rl and call SINITIO to initialize the I/O system. 


2. Element transmission calls to pass the list elements to the 
I/O system. This is done in a co-routine fashion between the 
user level and the I/O processor through work area offset 
W.EXJ. The user code calls the element transmission routine, 
which saves the registers, sets the work area offsets: 


VARAD = variable address 
ITEMSZ = variable length 
W.VTYP = variable data type 


and calls the I/O processor through W.EXJ. The I/O processor 
transfers the data and does a co-routine call back to the 
element processor, which saves this address at W.EXJ, 
restores the registers and returns to the user code. 


3. An end-of-list call sets offset VARAD to zero to indicate the 
end of the I/O list and calls the I/O processor. The I/O 
processor completes the I/O operation and returns to the 
end-of-list routine, which restores the registers, releases 
the I/O system and returns to the user code. 


The work area offset FILPTR contains zero if the I/O system is 
inactive, and the address of the active FFDB if I/O is in progress. 
This location is loaded by SINITIO at I/O initialization and cleared 
by the end-of-list processor (S$EOLST). 
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Within the I/O portion of the OTS the following register assignments 
are normally made: 
RO = address of the FCS FDB 


Rl address of the FFDB 


R3 address of the work area 


R2 and R4 are scratch registers 


All routines, except the co-routine calls, are called by a JSR PC,xxx 
instruction. R5 is generally preserved. 


Example: 
The FORTRAN statements: 


DIMENSION A(10) 
WRITE (3,100,ERR=99) I,A,B+l1. 


are compiled into the code: 


unit number 

FORMAT statement address 
NO END=address 
ERR=address 

initialize I/0 

address of I 

transmit integer 

address of ADB for A 
transmit array A 


MOV. #3,-(SP) 
MOV #.100,-(SP) 
CLR -(SP) 

MOV #.99,-(SP) 
JSR PC, OSFES 
MOV #1,-(SP) 
JSR PC, IOAIS 
MOV #A.ADB,-(SP) 
JSR PC,IOAAS 
LDF B,FO 

ADDF #1.0,F0 
STF F0O,-(SP) 
JSR PC, IOVRS 
JSR PC, EOLSTS 


compute B+1.0 

value 

transmit real value 
end-of-I/0O-list 


=e "OG “Oe NO NE TH NB TO TSH MO NS NO NO NO 


3.1.1 S$FCHNL, S$GETFILE and SIOEXIT 


These routines serve as the common entrance and exit to the I/O 
system. 


SFCHNL locates the FFDB for a given logical unit number, and issues an 
error for invalid units. This routine is called with the unit number 
in R2 and returns the address of the associated FFDB in RO. The PSW 
C-bit is used as an error flag on return: set if error, clear if no 
error. 


SGETFILE executes a $FCHNL, sets the FILPTR offset and checks’ the 
status of the unit. This routine is called identically to $FCHNL. It 
does not return the C-bit error flag. The PSW N-bit is returned as a 
Status flag (N-bit set if the unit is open, N-bit clear if closed). 


S$IOEXIT restores the user level status and executes the 'ERR=' 
_ transfer. This routine is called with the ERR=transfer address in R4 
and the work area pointer in R3. 
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3.1.2 Default OPEN -- SOPEN 


A default OPEN is the implicit opening of a unit due to execution of a 
READ or WRITE statement to a closed unit. The default file access is 
FO.WRT if a WRITE statement is being executed and FO.UPD if a READ 
statement is being executed. 


3.1.3 File Close -- S$CLOSE 
When a close operation is specified by a CLOSE statement, a CALL 
CLOSE, or by task termination, the close processor handles the file 
disposition: ‘'SAVE', 'PRINT' or 'DELETE'. A specification in a CLOSE 
statement overrides an existing specification. The following rules 
are enforced: . 

1. A ‘SCRATCH’ file cannot be saved or printed. 

2. A 'READONLY' file cannot be deleted or printed. 


The close processor is called with the unit number in R2. 


3.1.4 I/0 Initialization ~- SINITIO 


The call to SINITIO to initialize the I/O system places a bit-encoded 
value into Rl to denote the arguments present in the I/O statement and 
the processing forms required. These encodings are: 


Bit 15 = 1 --> END=/ERR= addresses present 
Bit 14 = 1 --> ENCODE/DECODE array address present 
Bit 13 = 1 --> FORMAT address present 
Bit 12 = 1 --> INTEGER*4 record number present 
Bit 11 = 1 --> set up ENCODE/DECODE 
= 0 --> set up normal I/0 

Bit 10 = 1 --=> Direct access operation 
Bit 9 =1 --> Formatted operation 

= 0 --> Unformatted operation 
Bit 8 = 1 --> Write operation 

= 0 --> Read operation 
Bit 7 = 1 --> Open file if not open 


Common operations and combinations are defined as follows: 


FL.FMP = formatted operation 

FL.ERR = END=/ERR= present 

FL.ENC = ENCODE/DECODE. operation 

FL.FMT = FORMAT present and formatted operation 

FL.REC = direct access operation/record number present 
FL.WRT = write operation with open implied 

FL.RD = read operation with open implied 


SINITIO initializes the I/O system, performs a default OPEN if needed 
and sets up the element transmission co-routine. 
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The FORTRAN statement: 

READ (1,5,END=99) A 
has the mask value FL.ERR+FL.FMT+FL.RD. 
The FORTRAN statement: 

WRITE (3'I) 2 


has the mask value FL.REC+FL.WRT. 


3.1.5 Element Transmission -- SIOELEM and SIOARY 


Module S$IOELEM contains 17 entry points to transmit individual list 
items to the I/O processor. The element transmission entry names are 
of the form: 


IOat$ 
where 


a designates whether the argument is an address or a value: A 
means address, V means value. 


t designates the data type of the list element as follows: 


- Byte 

- Logical*2 

- Logical*4 

- Integer*2 
Integer*4 

- Real 

- Double Precision 
- Complex 


AUDWUnH Ee 
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Complex list elements are passed to the I/O processor aS a sequence of 
two Real values. Offset W.CPXF is 0 for a non-Complex value; +1 for 
the real part of a Complex value and -1l for the imaginary part. 


For output, the entry IOAHS$ transmits a Hollerith constant or 
alphanumeric literal where the argument is the address of the first 
byte of the constant. 


Module SIOARY contains the entry point IOAAS$ which is used for array 
input/output. Its argument is the address of the array descriptor 
block (ADB). For formatted I/O, each array element is transmitted 
individually to the I/O processor. For unformatted I/0, the entire 
array is transmitted as a single element. 


3.2 RECORD PROCESSING SUPPORT 


There are 24 entry points for initializing I/O operations. They are 
shown in Table 3-1 and described below. Each I/O operation has two 
entry points: XXX$ and XXXES$. The XXXS entry is used for normal I/O 
statements. The XXXES entry is used if END= or ERR= elements are 
present in the I/O statement. The notation "[+FL.ERR]" is used in the 
description to distinquish the mask used for the two entry points. 
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Table 3-1 
I/O Initialization Entries 


Entry Arguments 
Name Function 


Input sequential formatted 
Input sequential formatted with END=/ERR= 


Input sequential unformatted 
Input sequential unformatted with END=/ERR= 


Input direct access formatted 
Input direct access formatted with END=/ERR= 


Input direct access unformatted 
Input direct access unformatted with 
END=/ERR= 


Output sequential formatted 
Output sequential formatted with END=/ERR= 


Output sequential unformatted 
Output sequential unformatted with END=/ERR= 


Output direct access formatted 
Output direct access formatted with END=/ERR= 


Output direct access unformatted 
Output direct access unformatted with 
END=/ERR= 


ENCODE 
ENCODE with END=/ERR= 


DECODE 
DECODE with END=/ERR= 


Input sequential list-directed 
Input sequential list-directed with END=/ERR= 


Output sequential list-directed 
Output sequential list-directed with 
-END=/ERR= 


logical unit number (INTEGER*2) 

character count for ENCODE/DECODE 

record number for direct access (INTEGER*4) 

compiled format string address (see discussion of FMTCVS) 

array address of data for ENCODE/DECODE 

END= address followed by ERR= address. If only one address is 
present, then 0 is supplied for the other address. 
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3.2.1 Formatted I/O 


The I/O routines for each type of formatted I/O contain two code 
segments: an initialization segment and a record processing segment. 


The initialization segment performs the following operations: 


1. Store the proper argument mask in R1 and call SINITIO to 
initialize the I/O system. 


2. Store the record processing segment address into work area 
offset RECIO. The format processors perform record transfers 
by executing a JSR PC,@RECIO(R3) instruction. 


3. Miscellaneous operation-specific initialization e.g., record 
buffer pointers. 


4. Jump to the format processor: S$FIO for formatted I/O, S$LSTI 
for list-directed input, and S$LSTO for list-directed output. 


The record processing code segment calls the appropriate I/O 
transmission utility (Section 3.4) and updates miscellaneous 
information such as buffer pointers and counts as required. 


3.2.1.1 Sequential Input -- ISF$, ISFES - These routines have 
FL.FMT+FL.RD[+FL.ERR] as the argument mask. The record processing 


code calls SGETS to read the record. 


3.2.1.2 Sequential Output -- OSFS, OSFES - These routines have 
FL.FMT+FL.WRT[+FL.ERR] as the argument mask, and initialize the work 


area buffer pointers. The record processing code computes the actual 
record length and calls SPUTS to write the record. 


3.2.1.3 Direct Access Input -- IRF$, IRFES$ - These routines’ have 
FL.RD+FL.REC+FPL.FMT[+FL.ERR] as the argument mask. The record 


processing code checks for multiple record requests and calls $GETR to 
read the record. 


3.2.1.4 Direct Access Output -- ORFS$, ORFE$ - These routines have. 
FL.WRT+FL.REC+FL.FMT[+FL.ERR] as the argument mask, call $PUTRI to 


initialize the record and initialize the work area buffer pointers. 
~The record processing code checks for multiple record requests and 
calls $PUTR to write the record. 


3.2.1.5 List-Directed Input -- ISLS, ISLES - These’ routines have 
FL.RD+FL.FMP[+FL.ERR] as the argument mask, set the buffer pointers to 


be at end of record and create the pointer to the constant value 
storage block. The record processing code calls SGETS to read a 
record. 
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3.2.1.6 List-Directed Output -- OSL$, OSLE$ ~- These routines have 
FL.WRT+FL.FMP[+FL.ERR] as the argument mask and initialize buffer 


pointers. The record processing code calls $PUTS to write a_ record, 
inserts a blank character for carriage control and sets the buffer 
length to 72 characters. 


3.2.1.7 ENCODE Statement -- ENFS, ENFES - ENCODE is processed 
identically to formatted output. These routines have 


FL.ENC+FL.FMT[+FL.ERR] as the argument mask. A partial FFDB in the 
work area is initialized. The record processing code checks for 
multiple record requests. 


3.2.1.8 DECODE Statement -- DEFS, DEFES ~— DECODE is processed 
identically to formatted input. These routines have the argument mask 
FL.ENC+FL.FMT[+FL.ERR]. A partial FFDB in the work area is 
initialized. The record processing code checks for multiple record 
requests. 


3.2.1.9 PRINT, TYPE and ACCEPT Statements - These statements are 
compiled into equivalent READ and WRITE statements using default unit 
numbers. Default unit numbers are small negative integers, which are 
mapped by SFCHNL through the work area to actual unit numbers. The 
number of such unit numbers is the value of offset W.LNMP and_ the 
mapped values are contained at offsets W.PRNT for PRINT, W.TYPE for 
TYPE, W.ACPT for ACCEPT and W.READ for READ with no unit number. 


PRINT compiles into OSF$ with unit number = -l, maps to 6. 
TYPE compiles into OSF$ with unit number = -2, maps to 5. 
ACCEPT compiles into ISFS$ with unit number. = -3, maps to 5. 
READ compiles into ISFS$ with unit number = -4, maps to l. 


3.2.2 Unformatted Sequential I/O 


The I/O routines for unformatted sequential I/O perform the following 
operations: 


l. Store the proper argument mask in R1 and call SINITIO to 
initialize the I/O system. 


2. Miscellaneous operation-specific initialization. 


3. Initiate the I/O list transmission co-routine via a JSR 
PC,@(R4)+ instruction. 


4. For each I/O list element, move the data bytes to or from the 
record. 


5. Call the appropriate I/O utility routine to transmit the 
record and update miscellaneous data such as record counts 
and buffer pointers. 


FORTRAN unformatted sequential I/O utilizes a spanned record concept 
as described in the FORTRAN IV-PLUS User's Guide. Each I/O operation 
transmits a Single FORTRAN record which may be one or more FCS 
physical records. 
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The FORTRAN to physical record mapping is provided by a 2-byte field 
at the beginning of each physical record. Bit 0 is set for the first 
segment and bit one is set for the last segment of a logical record. 
All 4-bit combinations are possible. A physical record has a maximum 
size of 126 bytes which contains 124 bytes of data. 


3.2.2.1 Sequential Input -- ISUS$, ISUE$ — These routines have 
FL.RD[+FL.ERR] as the argument’ mask. The element processing code 


moves the data bytes from the record to the list items. SGETS is 
called to read a physical record. 


3.2.2.2 Sequential Output -- OSUS, OSUE$ - These routines have 
FL.WRT[+FL.ERR] as the argument mask. The element processing code 


moves the data bytes from the list items to the record. SPUTS is 
called to write a physical record. 


3.2.3 Unformatted Direct Access I/O 


The I/O routines for unformatted direct access I/O perform the 
following operations: 


1. Store the proper argument mask in Rl and call SINITIO to 
initialize the I/O system. 


2. Miscellaneous operation-specific initialization. 


3. Initiate the I/O list transmission co-routine via a JSR 
PC,@(R4)+ instruction. 


4. For each I/O list element, move the data bytes to or from the 
record. 


5. Call the appropriate I/O utility routine to transfer the 
record. 


3.2.3.1 Direct Access Input -- IRUS$, IRUES - These routines have 
FL.RD+FL.REC[+FL.ERR] as the argument mask and call SGETR to read the 
record. The element processing code moves data bytes from the record 
to the list elements. 


3.2.3.2 Direct Access Output -- ORUS, ORUES - These routines have 
FL.WRT+FL.REC{+FL.ERR] as the argument mask and call S$PUTRI_ to 


initialize the record. The element processing code moves data bytes 
from the list elements to the record. S$PUTR is called to write the 
record. 


3.3 FILE PROCESSING SUPPORT 


The following modules provide unit and file processing facilities. 
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3.3.1 OPEN Statement 


The OPEN statement provides the user program detailed control of file 
attributes and characteristics. The OPEN statement processor is 
called using the standard R5 calling sequence with a_ specialized 
argument list encoding. The argument list has the following form: 


ARGLST: - WORD 2*n 
KEY1 


KEYn 
There is one argument for each keyword in the FORTRAN’ source 
statement. Duplicate keywords are not allowed. The order of 
arguments is immaterial. 


Each argument consists of a 2-word block formatted as follows: 


15 8 7 0 
mt 2 INFO 
where 
KEYWRD = keyword identification number 
ARGTYPE = type of information in INFO word 
INFO = use depends upon ARGTYPE value 


ARGTYPE distinguishes among the following cases: 


ARGTYPE=1 — Keyword value is an INTEGER*2 constant expression. 
In this case, the INFO word contains the value. 


ARGTYPE=2 - Keyword value is an INTEGER*2 value. INFO 
contains the address of the value. 


ARGTYPE=3 - Keyword value iS an INTEGER*4 value. INFO 
contains the address of the value. 


ARGTYPE=4 -— Keyword value is an alphanumeric literal decodable 
by the compiler. INFO contains the keyword value 
encoded as a small integer. 


ARGTYPE=5 — Keyword value is a variable, array, array element 
or alphanumeric literal terminated by an ASCII. null 
character (zero-byte). INFO contains the address of 
the start of the string. . 
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Table 3-2 
Summary of Argument Blocks by Keyword 


Keyword Keyword Allowed Literal Literal 
Name Number Argtypes | Values Encoding 


UNIT 


DIRECT 
SEQUENTIAL 
APPEND 


ACCESS 


ASSOCIATE VARIABLE 


BLOCKSIZE 


BUFFERCOUNT 


FORTRAN 
LIST 
NONE 


CARRIAGECONTROL 


SAVE 
DELETE 
PRINT 


DISPOSE 


ERR label address 


EXTENDSIZE 


FORMATTED 
UNFORMATTED 


FORM 


INITIALSIZE 


MAXREC 


NAME 


NOS PANBLOCKS 


READONLY 


RECORDSIZE 


SHARED 


OLD 
NEW 
SCRATCH 
UNKNOWN 


TYPE 


(1) The ARGTYPE field for the ERR= keyword contains the number of 
bytes of temporary stack storage which must be deleted if an ERR= 
transfer occurs. 
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Table 3-2 provides a summary of the keywords and keyword values 
supported by the OPEN statement. The basic OPEN statement processing 
searches through the argument list locating each keyword in a 
prescribed order. The ordering is determined so that all relevant © 
information required by a given keyword is available when that keyword 
is processed. If a keyword is not present in the list, an appropriate 
default is used. A running error count is maintained. At the end. of 
keyword processing, if any errors have occurred, the actual OPEN is 
not attempted. If errors occur, the ERR= transfer is taken and_ the 
FFDB is zeroed. The processing for each keyword is described below in 
the order of processing. (Consult Section 2.3.2 for the definitions 
of the status bits DV.xxx.) 


1. ERR - The ERR= transfer address is obtained and the stack 
adjustment value is saved in the work area at offset COUNT. 
The transfer address, if present, is stored at offset ERREX; 
if it is not present, ERREX is cleared. 


2. UNIT - The unit number is obtained and SFCHNL is called to 
obtain the FFDB pointer. Fatal errors that immediately abort 
processing occur if there is no unit number, the unit number 
is invalid, or the unit is already open. 


3. READONLY - If present, DV.RDO is set. 


4. ACCESS - 'DIRECT' sets DV.DFD, ‘'APPEND' sets DV.APD. If 
DV.RDO is set and DV.APD is specified, an error occurs. If 
not specified, the default is 'SEQUENTIAL'. 


5. TYPE - If not present, the default is ‘'NEW'. 'NEW' sets 
DV.NEW, 'OLD' sets DV.OLD, ‘SCRATCH' sets DV.SCR_ and 
*‘UNKNOWN' sets DV.UNK. If DV.RDO is set and DV.SCR, DV.NEW 
or DV.UNK is specified an error occurs. If DV.APD is set and 
DV.SCR or DV.NEW is specified an error occurs. The file 
access byte F.FACC is set up as follows: 


DV.RDO --> FO.RD 
DV.APD --> FO.APD 
DV.SCR --> FO.WRT + FA.TMP 
DV.NEW --> FO.WRT 
DV.OLD --> FO.UPD 
DV. UNK --> FO.UPD 
6. DISPOSE - '‘'SAVE' sets. DV.SAV, "PRINT' sets DV.SPL and 


"‘DELETE' sets DV.DEL. If DV.RDO is set, and DV.DEL or DV.SPL 
is specified, an error occurs. If a DISPOSE value is not 
specified, '‘'DELETE' is the default if DV.SCR is set. 'SAVE' 
is the default otherwise. 


7. FORMAT ~ ‘FORMATTED' sets DV.FMP, 'UNFORMATTED' sets DV.UFP. 
If not specified and DV.DFD is set then DV.UFP is the 
default, otherwise DV.FMP is the default. 


8. RECORDSIZE - The value is stored at F.RSIZ. If the value is 
negative or larger than the user record buffer size (MAXBUF 
value), an error occurs. If DV.UFP (unformatted) is 
specified, the value is converted to bytes from storage units 
(four bytes per storage unit). If the value given does not 
equal the value for an existing file, an error occurs unless 
the system subroutine ERRSET has been called to set the 
continuation-type for Error 37 (Inconsistent Record Length) 
to a return continuation. 


10. 


ll. 


12. 


13. 


14. 


15. 


16. 


17. 


18. 
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CARRIAGECONTROL - DV.CC is set; "FORTRAN' sets FD.FTN in 
F.RATT, and 'LIST' sets FD.CR in F.RATT. If DV.CC is not set 
and DV.FMP is specified, FD.FTN is the default. 


BUFFERCOUNT - The value specified is stored at F.MBCT. If 
the value is negative or greater than 127, an error occurs. 
Note that the actual number of buffers used depends upon the 
FCS version in use and the number of buffers available at 
file open. If a buffer count of -l is specified, the unit 
will be opened in block (READS/WRITES$) mode rather than in 
record (GETS/PUTS) mode. Normal FORTRAN I/O is then not 
permitted but the uSer can perform asynchronous block mode 
I/O through the FORTRAN Special Subroutines provided by the 
operating system. 


INITIALSIZE - The value specified is stored at F.CNTG. Li 9 
the value is positive, a contiguous allocation is made; if 
negative, a non-contiguous allocation is made. If the value 
is greater than 32767 or less than -32767, an error occurs. 


EXTENDSIZE ~- The value specified is stored at F.ALOC. If the 
value is positive, a contiguous extend is made; if negative, 
a non-contiguous extend is made. If the value is greater 
than 32767 or less than ~-32767 an error occurs. 


NOSPANBLOCKS ~- If specified, FD.BLK is set in F.RATT. 

SHARED —- If specified, FA.SHR is set in F.FACC. 

NAME - If specified, S$FNBST is called to initialize the file 
name block and DV.ASGN is set. SFNBST returns an error if 


the string is incorrect. 


MAXREC - The value specified is stored at D.RCNM and D.RCN2. 
If the value is negative, an error occurs. 


ASSOCIATE VARIABLE - The variable address is stored at 
D.AVAD. If the variable is INTEGER*4 type, DV.AI4 is set. 


BLOCKSIZE - The value specified is stored at F.OVBS. If the 
value is negative or greater than 32767, an error occurs. 


The FORTRAN statement: 


OPEN (UNIT = I, ERR = 99, NAME = 'A.DAT', TYPE = 'OLD', 
INITIALSIZE = I**J) 


is compiled into the code: 


ARGLST: 


MOV I, —(SP) 

JSR R4, PWIICS 
«WORD J 

MOV SP, ARGLST+24 
MOV #ARGLST, R5 
JSR PC, OPENS 

TST (SP) + 


I 
compute I**J on stack 


=e 6M 


Save address in argument list 
address of arg list 

open the file 

delete stack temp 


=e Se NO NO 


-WORD 12 ; 5 arguments 

»-BYTE gene ; UNIT, arg type = 2 

»WORD I ; address of I 

~BYTE 3,2 ; ERR, 2 bytes of stack temp 
-WORD -99 ; address of label 

-BYTE 16,5 ; NAME, arg type = 5 


J=1Z 
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«WORD STRING address of ASCIZ string 


. BYTE 17,4 ; TYPE, arg type = 4 

- WORD J: s ‘OLD' encoded value 

. BYTE 12,2 ; INITIALSIZE, arg type = 2 

.-WORD 0 ; filled-in address of I**J 
STRING: .BYTE 101,56,104,101,124,0 ; ‘A.DAT' 


3.3.2 CLOSE Statement 


The CLOSE statement provides the user program flexibility in file 
processing and logical unit utilization based upon run-time events. 
The CLOSE statement is compiled using an encoded argument list similar 
to that for the OPEN’ statement; only the UNIT, ERR and DISPOSE 
keywords are allowed. Processing is similar to OPEN: the argument 
list is searched for each allowed keyword and appropriate actions are 
taken. If any errors are encountered, the CLOSE is not attempted and 
the FFDB is NOT Zeroed. 


1. ERR - The ERR= transfer address is obtained and the stack 
adjustment value is saved at offset COUNT. The address is 
stored at offset ERREX if present. 


2. UNIT - The unit number is obtained and SFCHNL is called to 
obtain the FFDB address. If no unit number is present or an 
invalid unit number is specified, a fatal error occurs. 


3. DISPOSE - If not present, the existing disposition is used. 
The existing disposition is superseded by the CLOSE statement 
specification. '‘'SAVE' sets DV.SAV, 'PRINT' sets DV.SPL and 
'DELETE' sets DV.DEL. If DV.SCR is set and DV.SPL or DV.SAV 
is specified an error occurs. If DV.RDO is set and DV.SPL or 
DV.DEL is specified, an error occurs. 


3.3.3 DEFINEFILE Statement 
The DEFINEFILE statement is compiled as follows: 


1. Convert unit number to Integer*2 (if needed) and push. onto 
the stack. 


2. Convert number of records to Integer*4 (if needed) and push. 
3. Convert words per record to Integer*2 (if needed) and push. 
4. Push address of associated variable. 


5. If associated variable is type Integer*2 then push zero; if 
type Integer*4 then push the value -l. 


6. Call DEFFS. 


The unit number is obtained and SGETFILE is called to obtain the FFDB 
address. If the unit iS open, an error occurs. The number of records 
is stored at D.RCNM and D.RCN2 in the FFDB. The recordsize is 
converted to bytes and stored at F.RSIZ in the FDB. The associated 
variable address is stored at D.AVAD and DV.AI4 is set if the 
associated variable is Integer*4. DV.DFD and DV.UFP are set. If 
DV.DFD was previously set then an error occurs. If the number of 
records or record size is negative, an error occurs. 
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The FORTRAN statement: 
DEFINE FILE 2(N, 100, U, IVAR) 
is compiled into the code: 


unit number 

high order value of record number 
low order value of record number 
record length 

associated variable address 
associated variable is INTEGER*2 


MOV #2, -(SP) 
MOV N+2, -(SP) 
MOV WN, -(SP) 

MOV #144, -(SP) 
MOV #IVAR, -— (SP) 
CLR -(SP) 

JSR PC, DEFFS 


me se "=O NO MO NO 


3.3.4 FIND Statement 


The FIND statement is contained in the same module as the DEFINEFILE 
statement. It is compiled as follows: 


1. Convert unit number to Integer*2 (if needed) and push. 

2. Convert record number to Integer*4 (if needed) and push. 

3. Call FINDS. 
The argument mask for S$INITIO is set to FL.REC!IFL.RD and SINITIO is 
called. The associated variable, if present, is set to the record 
number. 
The FORTRAN statement: 

FIND (4° 131073) 
is compiled into the code: 
unit number 


high order value of record number 
low order value of record number 


MOV #4, -(SP) 
MOV #2, -—(SP) 
MOV #1, -—(SP) 
JSR PC, FINDS 


=e =e 6S 


3.3.5 BACKSPACE Statement 

The BACKSPACE statement is compiled as follows: 
1. Push unit number (Integer*2) on the stack. 
2. Call BKSPS. 


The unit number is obtained and S$GETFILE is called to obtain the FFDB 
address. If the file is closed or direct access the operation is 
ignored. If the file is opened for append, an error occurs. A call 
to the FCS routine .POINT is made to position the file at the 
beginning (virtual block 1, byte 0). The record count is obtained 
from D.RCCT and D.RCC2 in the FFDB. The record count is decremented 
by 1, and then n-l reads are performed. Note that the count is’ the 
logical record count, hence multiple physical reads may be required 
for the unformatted spanned records. 
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3.3.6 REWIND Statement 

The REWIND statement is compiled as follows: 
1. Push unit number (Integer*2) on the stack. 
2. Call REWIS. 


The unit number is obtained and $GETFILE is called to obtain the FFDB 
address. If the file is closed or direct access, the operation is 
ignored. The append bit is cleared and the record count D.RCCT and 
D.RCC2 is zeroed. A call to the FCS’ routine .POINT is made to 
position the file at the beginning (virtual block 1, byte Q). 


3.3.7 ENDFILE Statement 

The ENDFILE statement is compiled as follows: 
1. Push unit number (Integer*2) on the stack. 
2. Call ENDFS. 


The unit number is obtained, and $GETFILE is called to obtain the FFDB 
address. If the file is direct access, an error occurs and the 
operation is ignored. The file is opened by SOPEN (default open) for 
write if not open. A l-byte record, containing an octal 32 (CTRLZ) is 
output to the file, using S$PUTS. 


3.4 I/O PROCESSING UTILITIES 


These low-level OTS routines are called by the I/0 statement 
processors and format processors to perform the actual calls to FCS 
for record transfer and to perform miscellaneous utility tasks. These 
routines are called with the work area address in R3. 


3.4.1 Sequential Input -- §GETS 


The FFDB pointer is obtained from offset FILPTR. The FCS macro call 
GETSS is made to get a record. If FCS error IE.EOF is returned or an 
ENDFILE record is read, the END= transfer is made; any other error 
causes the ERR= transfer to be taken. The record count D.RCCT and 
D.RCC2 is incremented. : 


3.4.2 Sequential Output -- $PUTS 


The FFDB pointer is obtained from offset FILPTR. The FCS macro call 
PUTSS is made to output the record. The record count D.RCCT and 
D.RCC2 is incremented. This routine is called with the record length 
in Rl. 


3.4.3 Direct Access Input -~- S$GETR 


The FFDB pointer is obtained from offset FILPTR, and $CKRCN is’ called 
to verify the validity of the record number and return the record 
number in Rl and R2. The FCS macro call GETS$R is made to read _ the 
record. SASVAR is called to update the associated variable. 
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3.4.4 Direct Access Output -- $PUTR and $PUTRI 


SPUTRI is called to initialize a direct access write operation. The 
FFDB pointer is obtained from offset FILPTR, and SCKRCN is called to 
verify the record number. The record number is stored at F.RCNM and 
F.RCNM+2 in the FDB. The FCS routine .POSRC is called to position the 
file to the desired record. If FCS error IE.EOF is returned, it is 
ignored. All other errors cause the ERR= transfer to be taken. 


SPUTR is called to write the record. The FFDB pointer is obtained 
from FILPTR. The number of unfilled bytes in the record is computed 
and the record is padded with blanks for formatted records and zero 
bytes for unformatted records to the correct length. The FCS macro 
call PUTSR is made to write the record. SASVAR is called to update 
the associate variable. 


3.4.5 Direct Access Record Number Checking -- S$CKRCN 


SCKRCN verifies the validity of the current record number by comparing 
it against the maximum record number for the file. The current record 
number is stored at offsets W.RECL (low order) and W.RECH (high 
order). The maximum record number, if it exists, is at D.RCNM in the 
FFDB (low order) and D.RCN2 (high order). The record number, if 
valid, is returned in R1 (high order) and R2 (low order). This 
routine is called with the FFDB address in RO. 


3.4.6 Associated Variable Update -- SASVAR 


The current record number is obtained from offsets W.RECL and W.RECH, 
incremented by one and stored in the associate variable at the address 
in D.AVAD in the FFDB. 


3.4.7 File Name Block Initialization -- SFNBST 


This module sets up the Filename Block (FNB) of the FFDB pointed to by 
offset FILPTR. It is called from the ASSIGN subroutine if a file name 
argument is present, and from the NAME keyword processor of the OPEN 
Statement processor. It invokes the command string interpreter 
routines (.CSI1 and .CSI2) and the FCS .PARSE logic to construct’ the 
FNB. If no file name is found in the name string, S$FLDEF is called to 
fill in the default file name. This routine is called with R2 
containing the length of the name string and R1 pointing to the start 
of the string. 


3.4.8 Default File Name Generation -- SFLDEF 


This routine stores the default FORTRAN file name and file type into 
the filename block of the FFDB pointed to by offset FILPTR. The 
FORTRAN default filename is FOROnn.DAT where nn is the unit number. 
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3.4.9 Register Save and Restore -- $SAVPx 


This routine provides the register save/restore and argument 
processing support for implementing the OTS PC call convention 
(Section 1.2.2.2). This convention pushes all arguments on the stack, 
calls the OTS routine via a JSR PC, xxx instruction and returns with 
arguments deleted and all context preserved. This register 
save/restore routine is called by the OTS routine. It saves all 
registers on the stack, sets RO to point to the call arguments, and 
co-routine calls the OTS module. Upon return from the OTS routine, it 
restores the registers, deletes the stack arguments and returns to the 
original caller. Seven entry points are provided: S$SAVPO-SSAVP6 for 
routines with zero to six argument words on the stack. For routines 
with more than six arguments or with a variable number of arguments, 
SSAVPO is called to save the registers; when returning, RO contains 
the number of arguments and S$SAVPC is jumped to instead of returning. 
For ERR= transfers S$SAVPX is jumped to with R4 containing the transfer 
address. 


CHAPTER 4 


FORMAT PROCESSING AND FORMAT CONVERSIONS 


This chapter discusses the internal form of format specifications, the 
format processing algorithm and the format conversion routines. 


4.1 COMPILED FORMAT LANGUAGE 


The formats used by the I/O system for formatted I/O are compiled into 
a standard internal form, with all error checking performed either by 
the FORTRAN IV-PLUS compiler, or by the OTS routine FMTCVS at 
run-time. This allows the format interpreter itself to be simpler and 
smaller. 


Each format code has a unique 6 bit code and requires one or more 
bytes of format text. All format code parameters (field widths, 
repeat counts, etc.) are stored in single bytes following the format 
code. A variable format expression (VFE) is represented by the 
address of the compiled machine instructions for the VFE. Figure 4-1 
shows the form of a format code. Note that only the format code byte 
is required, but that each format code requires a fixed number of 
additional values, which are described in the following sections. 


bit 7 6 5 0 address 
n 
VFE MASK n+l 
FIELD WIDTH:W n+3 
DECIMAL PART:D n+4 


Figure 4-1 Format Code Form 
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4.1.1 Format Code Byte 


The format code consists of a 6-bit format code, a 1-bit repeat count 
flag (R) and a 11-bit VFE flag (V). Table 4-1 lists the format codes 
and the additional values required. If the repeat count flag is 0, 
the repeat count is 1 and the repeat count byte is not present; if it 
is a 1 then the repeat count is not 1 or is a VFE. If the VFE flag is 
0, no VFE's are present; if 1, the VFE mask byte is present and VFE 
addresses are required. 


4.1.2 VFE Mask Byte 


This byte describes which of the values required are VFE's. Bits 
Starting at bit 7 from left to right describe the value; 1 means VFE, 
0 means compiled constant. 


4.1.3 Repeat Count Byte 


This byte contains the optional repeat count value if the repeat count 
is not l. The value is 1 less than the source code value. 


4.1.4 Field Width Byte 


This byte is the field width, tab position or scale factor in the 
range 1 to 255 (-128 to 127 for scale factor). 


4.1.5 Decimal Part 


This byte is the decimal field width for the floating point conversion 
codes, in the range 0 to 255. 


4.1.6 VFE Implementation 


If the repeat count, W value or D value is a Variable Format 
Expression (VFE) as indicated by the VFE Mask, the VFE address XXX 
begins on the next word boundary. The VFE is compiled as an 
unparameterized arithmetic statement function of type Integer*2 and is 
called by a JSR PC, xxx with R5 pointing to the program unit argument 
list. All range checking is done by the format interpreter on the 
result. 


4.1.7 Hollerith Formats 


Quoted format strings (alphanumeric literals) are compiled as 
Hollerith constants. The count for Hollerith constants may NOT be a 
VFE and the characters to be transmitted are contained in the compiled 
format following the repeat count. 


FORMAT PROCESSING AND FORMAT CONVERSIONS 


4.1.8 Default Formats 


Most format code field descriptors have a default value supplied if 
the numeric value is not present. These defaults are determined 
jointly from the format code and the data type of the corresponding 
list element as follows: 


Format Code Data Type Default Values of W or W.D 
I,0 I*2 7 
I,0 I*4 12 
D,E,F,G R*4 15.7 
D,E,F,G R*8 25.16 
L all 2 
A all Number of bytes in the 
variable 
xX --- 1 
Table 4-1 


Compiled Format Codes 


format syntax error 

format too large 

format reversion point 

left paren of repeat group 
right paren of repeat group 
end of format 

record separator 


-128<s<127 


ON WO ON 
tg 


Tn 
nx 
nHcl...cn 


5 3 
be 


n 
n 
t 


VFE, n chars follow 


Standard conversions 


nAw 
nLw 
nOw 
niw 


aT te a 


Default formats 


t 


to ’ 
ee eee 


rey as sa a es es 
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The FORTRAN statement: 
1 FORMAT (1X, F13.5, 'ABCDE', <K>I10, 3(2E15.7)/) 


is compiled into the following: 


we - BYTE 30 3; 1X 
~-BYTE 44,15,5 2. F135 
~BYTE 232 ; Hollerith code 
-BYTE 4 7 repeat count 


-BYTE 101,102,103,104,105 ; ‘ABCDE' 


- BYTE 342 I format code 

- BYTE 200 VFE mask 

-BYTE 0 make an even address 
-WORD LSVFE VFE address 

~BYTE 12 I10 

-BYTE 4 reversion point 


- BYTE 206,2 
- BYTE 246,1 


left paren and repeat count 
E format code and repeat count 


me Me NO NMOS NE NO TO MO NO NE NO NE 


- BYTE 17 ya E15.7 
- BYTE 10 right paren 
-BYTE 14 / code 
- BYTE 12 end-of-format 
- EVEN 

LSVFE: MOV K, RO 
RTS PC 


4.2 FORMAT PROCESSING PSECTs 


Six PSECTs are used for format and list-directed processing. SSFIOC 
contains the pure code of the format processor ($FIO) and the 
list-directed processors (SLSTI and S$LSTO). $$FIOD contains pure data 
(constants and dispatch tables) used by these processors. S$$FIOI 
contains the code for integer and octal conversions; S$$FIOL contains 
the code for logical conversions; SSFIOR contains the code for 
floating point conversions. S$S$FIO2 contains only the addresses of the 
conversion routine entry points. Each module stores only its own 
entry point addresses in $$FIO2. The processing routines pick up the 
address of the conversion routine; if that address is 0, an error 
occurs. 


None of the actual conversion routines reference the work area or any 
other portion of the OTS. They preserve R5 and the FPP registers and 
leave all other registers undefined. 


4.3 FORMAT PROCESSOR -- $FIO 


This module, in conjunction with the format conversion modules, 
processes formatted I/O. It operates as a co-routine with the I/O 
transmission operators. It is called at the end of formatted I/O 
initialization and continues to process list items and formats until 
called by SEOLST with offset VARAD equal to 0. S$FIO processes through 
the format, calling an internal routine for each format code. 
Variable format expressions are called as encountered with all context 
saved and R5 restored to the user code value. When a format requiring 
a list item is encountered, if no element remains (offset VARAD = 0) 
then processing terminates. If an element exists, a call is made toa 
conversion routine. '‘'A' format is handled within $FIO. Nested group 
repeat specifications are handled by a pushdown stack contained within 
the work area. Offset FSTKP points to the current position; offset 
FSTK is the base of the pushdown stack. 
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4.4 LIST-DIRECTED INPUT PROCESSOR -- $LSTI 


This module, in conjunction with the format conversion modules, 
processes list-directed input. It acts as a co-routine with the I/O 
transmission operators. It is called at the end of I/O initialization 
by ISLS and processes list items until called with offset VARAD equal 
to 0. 


SLSTI lexically scans the external record and delimits a field of 
input characters, determines the data type of the field and calls the 
appropriate input conversion routine to perform the conversion. The 
resulting internal data value is converted to the type of the list 
element and moved to the list element. The currently active data 
value is stored in the work area at offset W.LICB, which is pointed to 
by offset W.LICP. 


The parameters passed to the format conversion modules are the buffer 
pointer, the actual field width as determined by the delimiter scan, 
and a decimal part of 0 and scale factor of 0O for floating point 
conversions. 


4.5 LIST-DIRECTED OUTPUT PROCESSOR -- S$LSTO 


This module, in conjunction with the format conversion modules, 
processes list-directed output. It acts as a co-routine with the I/0 
transmission operators. It is called at the end of I/O initialization 
by OSL$ and processes list items until called with offset VARAD equal 
0. 


SLSTO accepts the list element and determines a format based on the 
list element data type as follows: | 


BYTE I5 

LOGICAL*2 L2 

LOGICAL*4 L2 

INTEGER* 2 I7 

INTEGER*4 I12 

REAL* 4 1PG15.7 

REAL*8 1PG25.16 

COMPLEX*8 1X,'(",1PG14.7,',',1PG14.7,')' 
Hollerith 1X, nAl where n is the string length. 


If the field length thus computed is longer than the remaining 
characters in the record, the current record is written and a new 
record begun. Each item is contained in a single record except for 
alphanumeric literals that are longer than a single record. A space 
is inserted at the front of each record for carriage control. The 
record length is fixed at 73 bytes, which yields 72 print positions. 


4.6 OBJECT-TIME FORMAT COMPTLER -- FMTCVS 
Format specifications stored in arrays must be compiled during 
execution into the required form prior to use. This is accomplished 
as follows: 

1. Push the address of the beginning of the array specification. 


2. JSR PC, FMTCVS 


This routine does not delete the stack argument but rather replaces 
its value with the address of the compiled format. 
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Object time formats are compiled into an internal buffer within the 
OTS whose length may be controlled by the FMTBUF option during task 
building. The format buffer address is stored at offset W.OBFL and 
its high addresst+l is stored at W.OBFH. Offset FMTAD points to the 
current entry in the output format buffer. 


Within the FMTCV$ processing routines, R5 points to the _ source 
characters; RO contains the current source byte; R2 contains any 
numeric value being accumulated; offset NOARG notes the number of 
expected arguments for this code; offset PARLVL notes the parentheses 
depth encountered; and offset NUMFL notes that a number is available 
in R2. 

The module proceeds through the source characters. If the character 
is a digit, a number is accumulated; if a letter, a dispatch is made 
to process the format code; if a special character, a dispatch is 
made to process the format code. 

If the buffer space is exhausted, the FMTBIG format code (2) is stored 
in the first byte of the compiled format and processing ceases. If a 


format syntax error is detected, the FMTBAD format code (0) is stored 
in the first byte and processing ceases. 


4.7 INTEGER AND OCTAL CONVERSIONS 


For input, OCI$ is called for octal conversion and ICI$ for integer 
conversion. The calling sequence is: 


1. push address of input string 

2. push number of input characters 

3. call ICIS or OCIS 
The return is made with arguments deleted and a 2-word value on _ the 
stack in Integer*4 format. If an error occurs, the C-bit is set and 
the value returned is 0. An entry point SECI is called by the 


floating point conversions to input the exponent field. 


For output, OCOS is called for octal conversion and ICO$ is called for 
integer conversion. The calling sequence is: 


1. push address of output field 
2. push width of output field 
3. push Integer*4 value 

4. call ICO$ or OCO$ 


The return is made with arguments deleted. If an error occurs, the C 
bit is set and the output field is filled with asterisks. 


4.8 LOGICAL CONVERSIONS 

For input, LCI$ is called as follows: 
1. push address of input field 
2. push width of input field 


3. call LCIS 
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The return is made with arguments deleted and a l-word value on _ the 
stack; 0 for .FALSE., and -1 for .TRUE. If an error occurs, the 
C-bit is set and .FALSE. is returned. 
LCOS is called for output as follows: 

1. push address of output field 

2. push width of output field 

3. push l-word word logical value 


4. call LCOS 


The return is made with arguments deleted and C-bit clear. 


4.9 REAL, DOUBLE PRECISION AND COMPLEX CONVERSIONS 


For input, RCI$ is called for all formats (D, E, F and G format codes) 
as follows: 


1. push address of input field 

2. push width of input field 

3. push decimal part width 

4. push scale factor (P format) 

5. call RCI$ 
The return is made with arguments deleted and a 4-word double 
precision value on the stack. If an error occurs, the C-bit is set 
and the value returned is 0.0. If an exponent subfield is 
encountered, a call is made to $ECI in the integer input conversion 
routine to handle the conversion. The conversion is done entirely in 
software; the FPP unit is not used. 
For output, the call is made as follows: 

1. push address of output field 

2. push width of output field 

3. push decimal part width 

4. push scale factor 

5. push 4-word double precision value 

6. call DCO$ or ECO$ or FCOS$ or GCO$ 
The return is made with arguments deleted. If an error occurs, the 
C-bit is set and the output field is filled with asterisks. The 
conversion is done in software, without using the FPP unit. 
The optional module provided, F4PCVF, is an FPP implementation that is 


significantly faster but slightly less accurate. The entire FPP state 
is conserved. 
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4.10 FORMAT CONVERSION ERROR PROCESSING 


When a format conversion error occurs, both methods of error 
continuation, ERR=transfer and return, are generally supported. The 
action taken for each error that supports return continuation is as 
follows: 


Error 59 - List-Directed I/O Syntax Error 
-- Result value is null (no change). 


Error 61 - Format/Variable Type Mismatch Error 
-- Value is used as is. 


Error 63 - Input Conversion Error 
-~ Result value is 0, 0. or ODO. 


Error 64 - Output Conversion Error 
-- Field is filled with asterisks. 


Table 2-7 in the FORTRAN IV-PLUS User's Guide gives the initial 
settings of the error continuation-type. The system subroutine ERRSET 
is used to change the initial settings. 


CHAPTER 5 


ERROR PROCESSING AND EXECUTION CONTROL 


This chapter discusses the detection and processing of run-time 
errors, and the generation of error message output. 


5.1 TRAP INSTRUCTION PROCESSING 


The OTS reports errors using a TRAP instruction with the error number 
contained in the low byte of the instruction. The error number 
internally is 128(decimal) larger than the reported number, i.€., 
error 21 is represented internally as 149. The first 128 TRAP values 


are available to the user; see Section 5.6. 


Upon execution of a TRAP instruction, the operating system transfers 
control to the TRAP instruction processor, $SST6. This routine checks 
the range of the error number and, if it is valid, calls $ERRAA to do 
the error analysis and reporting. If invalid, an invalid error number 
error (Error 1) is reported. All processor registers are preserved by 
the error processing routines. 


5.2 ERROR CONTROL BYTE PROCESSING 


SERRAA obtains the error control byte from the OTS impure area and 
does the processing based upon the contents of that byte. If offset 
FILPTR is non-zero and the F.ERR byte of the corresponding FDB is 
negative, then the values F.ERR, F.ERR+1 and F.LUN are saved for the 
error report. 


The error-occurred bit is set in the error byte and the error analysis 
is performed as follows. If the continue bit is off, the error report 
is printed with the exit flag. If the count bit is on, offset W.ECNT 
is decremented; if it is less than or equal to zero, the report is 
printed with the exit flag. If the continue-type bit indicates an 
ERR= transfer and no ERR= address exists, the error report is printed 
with the exit flag. If the log bit is set, the error report is 
printed with the no-exit flag. If the task exits, the message is 
always logged. 


SERRLG is called to log all terminal messages, both error reports and 
the messages from STOP and PAUSE statements. 


5.2.1 Continuation-type Processing 


Two types of continuation after an error are supported: return to the 
source of the error for corrective action; or transfer to an ERR= 
address. Most I/O errors provide ERR= support, but not return, while 
most other errors provide return. 
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5.2.2 W.IOEF Error Processing 


For certain I/O errors, it is convenient for the ERR= transfer not to 
be initiated by the error processor but for the I/O routine itself to 
take the ERR= transfer. For example, OPEN statement processing 
processes all keywords even though an error occurs for a keyword and 
then takes the ERR= exit. Work area offset W.IOEF is used to obtain 
this special processing. If W.IOEF is 0, default processing is 
enabled. If W.IOEF is negative, default processing is performed 
except that the ERR= transfer is not made and a return is made to the 
source of the error for the ERR= transfer. Note that regardless of 
the W.IOEF setting, if no ERR= address exists, the task will exit. If 
W.IOEF is set positive, a return continuation will always be executed. 
W.IOEF is initially zero and is reset to zero before exiting from a' 
routine which utilizes it. 


5.3 ERROR MESSAGE PROCESSING 


The error message construction and processing is performed by numerous 
small routines. Message processing is begun by a call to SERRLG. 
This routine controls the flow of message processing and calls’ the 
message utilities as required. It prints the task name and error 
number on the first line, message text if available on the _ second 
line, the program counter value at the time of the error on line 
three, the error count exceeded message on line four, the FCS data on 
line five, followed by the program unit traceback. Any line that is 
not available or is inappropriate is not printed. Offset W.PC 
contains the saved program counter value and controls the third line. 
Offset W.ECNT contains the error limit count and controls line 4. 
Offset W.FERR contains the F.ERR field of the FFDB and controls line 
5. Messages are printed via the message output task (MO) on RSX-11D 
and IAS. On RSX-11M messages are output by issuing QIO's to the 
user's terminal (TI:). 


The message construction process requires R3 to point to the work 
area, and R5 to point to the current position in the message text 
being constructed. Offset W.MOTY is 0 if MO is being used, and 
non-zero if QIO's to the terminal are being performed. Offset W.ERLN 
points to the beginning of the error message buffer. 


SERRLG is also called to output the messages from STOP and PAUSE 
statements. The type of message being generated is determined from 
the values of RO and Rl. A STOP or PAUSE message is signaled by R1=0 
and RO pointing to the message text block. An error message is 
Signaled by Rl being non-zero and then RO=-1 if the task is exiting or 
RO=0 if the task is continuing. 


5.3.1 Message Construction Utilities 


These routines are used to construct the error report text in the 
error text buffer. These routines operate identically regardless of 
whether the message output task (MO) is in use or not. 


Terminal QIO - Perform a QIO of message to the user's terminal. 
Compute the message length; set MO LUN number (offset 
W.MO, global symbol .MOLUN) in the QIO DPB. Issue the 
QIO. Wait for the QIO to complete. 


SATT - Initialize R5 to error message buffer and store a 
carriage return-line feed (CR-LF) as the first two 


a= 2 


ERROR PROCESSING AND EXECUTION CONTROL 


characters. Set R5 into offset W.MOAI1. 


SERRNL - Start a new line. Stores a CR-LF into buffer. 

SERRZA - Perform a GTSKSS directive to obtain the task name. 
Call SATT and call SR50AB to decode the Radix-50 task 
name. 

SBINAS - Convert a binary number to decimal ASCII. 

SFILL - Move ASCIZ text pointed to by Rl to error message 


buffer pointed to by R5. 


S$R50AS,$R50AB - Convert Radix-50 value to ASCII by calling $R50. 


5.3.2 Message Output Task (MO) Utilities 


These routines in RSX-11D and IAS construct the MO parameter’ block 
(global symbol .MOPRM) and perform the QIO to MO. 


SERRW1 - Write the first segment. Store length of string in W.MOVI1 
and set W.MOA2 equal to R5. 


SDETIC - Output in-core message text. Store no error number, call 
SERRW1 to set up MO pointers and branch to $DET. 


SDET - Output the message. Call MO if present, on error call 
SREAMO to reassign the MO lun to the terminal. If MO not 
present, call Terminal QIO. Go to SATT. 


SREAMO - Reassign the MO Lun. Perform ALUNSS of the MO unit number 


to the user terminal since MO is not present or not loaded 
and set the no MO switch (W.MOTY). 


5.4 FLOATING POINT PROCESSOR ERRORS 


All Floating Point Processor (FPP) errors are processed as 
Asynchronous System Traps in routine $FPERR. All possible FPP errors 
can be processed. For floating divide by zero, overflow and 


underflow, a value of zero is supplied as the result of the operation 
that caused the trap. 


5.5 STOP AND PAUSE STATEMENT PROCESSING 

STOP and PAUSE statements are compiled to calls as follows: 
1. Push address of display (0 indicates no display) 
2. Call statement specific entry: 


STOPS for STOP 
PAUSS for PAUSE 


All context is saved. SERRLG is called to output the message. STOP 
then jumps to S$EXIT. PAUSE issues a SPNDS$S directive and returns. 
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5.6 USER INTERFACING TO ERROR PROCESSING 


Users can use the first 128 (0 to 127) trap codes as_ follows. TRAP 
instructions transfer control to the OTS error processor by means of a 
System Synchronous Trap Table located in the OTS impure work area. 
The first word of this table has the global symbol $SST. Coding 
Similar to the following can be used to intercept control: 


? 
+ INITIALIZATION 
; 
INIT: MOV S$SST+14,SST6 ;SAVE OTS TRAP ADDR 
MOV #INTCEP, SSST+14 ;PUT NEW ADDR IN SST 
; TABLE 
SST6: . WORD 0 
; TRAP HANDLER 
INTCEP: CMP #128.*2,@SP ;LOW BYTE *2 OF TRAP 
; INSTRUCTION FROM 
> EXECUTIVE 
BHI 1s ;BRANCH IF USER CODE 
IMP assTé ;GOTO OTS 
1s: ae ;USER TRAP 
sPROCESSING CODE 
TST (SP) + ;DISCARD EXTRA WORD 
;TRAP NUMBER 
RTI ;EXIT INTERRUPT 


Similar techniques can be used to intercept the other synchronous 
traps. 


5.7 USER INTERFACING TO TERMINAL MESSAGE OUTPUT 


Users can utilize the error reporting message facility to write text 
on the user terminal without doing FORTRAN I/O. A message text block 
Similar to that used for STOP and PAUSE statements iS constructed as 
follows: Rl equal to 0; RO points to a 2-word message block, the 
first word contains the address of an ASCIZ string (ASCII string 
terminated by a zero-byte), the second word is 0. The text is then 
output by executing a JSR PC, SERRLG instruction. 


Example: 
The following prints "HELLO" on the user terminal: 


In FORTRAN: CALL MSG ('HELLO') 
END 


IN MACRO-11: 

MSG:: CLR -(SP) 
MOV 2(R5),-(SP) 
MOV SP,RO 
CLR Rl 
JSR PC,SERRLG 
CMP (SP)+, (SP)+ 
RTS PC 
. END 


2nd word of message block 
address of ASCIZ text 

RO points to message block 
signal non-error type message 
output the message 

delete message block 

return 
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The user text will be preceded by the task name. Only a single line 
can be output. The message will appear as follows: 


taskname -- usertext 
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MATHEMATICAL FUNCTIONS AND SYSTEM SUBROUTINES 


This chapter summarizes the mathematical library functions and system 
subroutines. Detailed descriptions are contained in the FORTRAN 
IV-PLUS User's Guide. 


6.1 PROCESSOR-DEFINED FUNCTIONS 


Most of the processor-defined functions are called earige the standard 
PDP-11 FORTRAN Calling Sequence Convention, (Section 1.2.2.1). 


Some processor- -defined functions are called using the FQ sequence 
described in Section 1.2.2.4. This calling sequence is used with the 
following internal entry names: 


SSSIN Real sine 

SSDSIN Double precision sine 

$$SQRT Real square root 

SSDSOR Double precision square root 

SSATAN Real arctangent 

SSDATN Double precision arctangent 

$scos Real cosine 

$$DCOS Double precision cosine 

$SALOG Real logarithm (base e) 

S$$DLOG Double precision logarithm (base e) 
$SALG1 Real logarithm (base 10) 

$$DLG1 Double precision logarithm (base 10) 
S$SEXP Real exponential (base e) 

SSDEXP Double precision exponential (base e) 
SSTAN Real tangent 

SSDTAN Double precision tangent 
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6.2 I/O-RELATED SUBROUTINES 


ASSIGN- 


The unit number is placed in R2 and S$GETFILE is called to get the 
FFDB address. The file specification string address is placed in 
Rl. The string length computed by scanning for a zero-byte if no 


length is present. SFNBST is called to parse the file 
specification and set up the file name block in the FDB. 

CLOSE- 
The unit number argument is moved to R2 and the OTS routine 


SCLOSE is called to close the file. 
FDBSET-—- 


The unit number is placed in R2 and $GETFILE is called to get the 


FFDB address. The first character of the access mode string is 
checked against the list and the corresponding file access is 
stored at F.FACC in the FDB: 

"NEW' - FO.WRT 

‘OLD' - FO.UPD 

"READONLY ' - FO.RD 

‘APPEND' - FO.APD 

"MODIFY' = FO.MFY 

'ISUP' - FO.WRT + FA.NSP 

‘UNKNOWN ' ~ FO.UPD 


If the third argument begins with the character S, FA.SHR is set in 
F.FACC in the FDB. The fourth argument is stored at F.MBCT, the fifth 
at F.CNTG and the sixth at F.ALOC. 


6.3 EXECUTION CONTROL SUBROUTINES 

ERRSET- 
The error number specified by the user is extracted and checked 
for validity. The following logical arguments are extracted and 
the appropriate bits in the error control byte are manipulated. 
If a limit count is provided, it is stored at offset W.ECNT. 

ERRSNS~ 


This routine is called with zero to four integer arguments: 


CALL ERRSNS (NUM, FERR, FERI1, UNIT) 


These offsets are then zeroed. 


The saved information from the latest error is returned as 
follows: 

offset W.ERNM into NUM 

offset W.FERR into FERR 

offset W.FERI into FER] 

offset W.ERUN into UNIT 
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ERRTST-— 
The error number is retrieved and checked for validity. The 
error occurred bit. of the error control byte is tested and 
cleared and the result returned in the second argument. 

EXIT- 
Performs a jump to SEXIT 

USEREX- 


Stores the argument address at work area offset EXADDR for use at 
task termination. 
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COMPILED-CODE SUPPORT ROUTINES 


This group of routines is used for performing arithmetic operations 
which are impractical to perform by in-line code sequences - notably 
exponentiation and complex arithmetic. 


7.1 OUT-OF-LINE ARITHMETIC OPERATIONS 
All of these entries follow a common naming convention in which: 


1. The first two letters indicate the operation performed as 
follows: 


AD - addition 

SB - subtraction 

ML - multiplication 
DV - division 

PW - exponentiation 
CM - comparison 

TS - test for zero 
NG - negation 


2. The next letter (two in the case of exponentiation) indicates 
the data type of the argument(s) as follows: 


I - Integer*2 

J - Integer*4 

R - Real 

D - Double Precision 
C - Complex 


3. The last letter indicates how the argument for a l-argument 
operation, or the second (right hand) argument for a 
2-argument operation is accessed. For 2-argument operations, 
the first (left hand) argument is always on the stack. 


S - indicates the argument is at top of stack 

C - indicates that the following in-line word is’ the 
address of the argument 

P - indicates that the following in-line word is’ the 
offset in the parameter list (pointed to by R5) which 
contains the address of the argument. 


All of these entries delete their stack arguments, return their result 
on the stack, and preserve the contents of general register 5 (R5). 
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7.1.1 Exponentiation -- PWxxt$ 


The following entries are used: 


PW(I,J,R, or D)(I,J,R, or D)(S,C, or P)$ 
PWC(I or J)(S,C, or P)S$ 


The FORTRAN statement: 
I = (J**K) **(L**M) 
is compiled into the code: 


MOV J, -(SP) 
JSR  R4, PWIICS 
.WORD K 

MOV L, ~(SP) 
JSR  R4, PWIICS 
.WORD M 

JSR  R4, PWIISS 
MOV (SP)+, I 


push J 

compute J**K 

result on stack = tl 
push L 
compute L**M 

result on stack = t2 
compute t1**t2 

store result at I 
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7.1.2 Complex Arithmetic Operations 


Complex Add, Subtract, Multiply, Divide, Test for Zero, Negate 
Compare. 


The following entries are used: 


ADC(S,C, or P)$ 
SBC(S,C, or P)$ 
MLC(S,C, or P)$ 
DVC(S,C, or P)$ 
TSC(S,C, or P)$ 
NGC(S,C, or P)$ 
CMC(S,C, or P)$ 


Example: 
The FORTRAN statements: 


SUBROUTINE S(C) 
COMPLEX A,B,C 
= = (BOF C) 


are compiled into the code: 


MOV B+6,-(SP) 
MOV B+4,-(SP) 
MOV B+2,-(SP) 
MOV B,-(SP) 
JSR R4, MLCPS 
-WORD 2 

JSR R4, NGCSS$ 
MOV (SP)+, A 
MOV (SP)+, A+2 
MOV (SP) +,A+4 
MOV (SP) +,A+6 7; store at A 


push B 

multiply by C 
first argument 
negate result 
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and 


COMPILED-CODE SUPPORT ROUTINES 


7.1.3 INTEGER*4 Operations MLJt$ and DVJt$ 


The following entries are used: 


MLJ(S,C, or P)$ 
DVJ(S,C, or P)$ 


Example: 
The FORTRAN statements: 


INTEGER * 4 I,J,K 
I= J/K 


are compiled into the code: 


MOV J+2,-(SP) 
MOV J,-(SP) 
JSR R4, DVJCS 
.WORD K 

MOV (SP)+,I 
MOV (SP)+,I+2 


7.1.4 STACK SWAP OPERATIONS SWPxy$ 


These routines are used in conjunction with the R4 entries for those 
cases in which the order of evaluation causes the two arguments of an 
R4 call to be on the stack in reverse order. Entry names are of the 
form 


SWPlrs 


where 
1 is the number of words the left argument occupies: 1, 2, 
or 4 


r is the number of words the right argument occupies: 1, 2, 
or 4. 


The two arguments are swapped on the stack. 
Example: 
The FORTRAN statements: 


INTEGER*4 K,L 
INTEGER*2 I,J 
K= L**g**] 


are compiled into the code: 


MOV J,-(SP) 
JSR  R4,PWIICS$ 
.WORD I 

MOV L+2,-(SP) 
MOV L, -(SP) 
JSR  PC,SWP21$ 
JSR  R4, PWJISS 
MOV (SP) +K 
MOV (SP)+,K+2 
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7.2 ARRAY PROCESSING SUPPORT 
An Array Descriptor Block (ADB) is a data structure provided by the 
compiler which describes an array (see Section 2.5). FORTRAN IV-PLUS 
compiled code uses ADBs for the following purposes: 

1. Array subscript calculations for dummy argument arrays, 


2. Input/Output calls that transmit an entire array, and 


3. Array subscript limit checking when specified by the compiler 
/CK command switch. 


Constant parts of an ADB are defined by the compiler. Varying parts 
are initialized at run-time upon entry to the subprogram which 
contains the array declaration. 


7.2.1 Adjustable Array Initialization 


Three entries are used for initializing the contents of ADB's for 
dummy argument adjustable arrays: MAK1$, MAK2$ and MAKNS. MAKIS is 
called for l-dimensional arrays, MAK2$ for 2-dimensional arrays and 
MAKNS$ for arrays with three to seven dimensions. Only R5 is preserved 
by these routines which are called as follows: 


1. Push the dimension bounds for any non-constant elements onto 
the stack in order of their appearance in the array 
declarator. 


2. Push the base address of the dummy argument array passed in 
the subprogram call. 


3. Push address of array descriptor block onto stack. 
4. JSR PC, MAKIS, MAK2S$ or MAKNS. 
The FORTRAN statements: 


SUBROUTINE X(A,N) 
DIMENSION A(0:N-1,N) 


are compiled into the code: 


MOV @4(R5), RO get N 

DEC RO compute N-l 
MOV RO, -(SP) push N-1l 
MOV @4(R5), —(SP) push N 


MOV 2(R5), -—(SP) 
MOV #A.ADB, ~— (SP) 
JSR PC, MAK2$ 


push address of A 
push address of ADB 
initialize 2-dimensional ADB 
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»~WORD 0 ; Ll 
-WORD 0 ; Ul 
»~WORD 1 ; L2 
»-WORD 0 ; U2 
-WORD 120000 ; A.PWRD 
»~WORD 0 ; A.SIZB 
A.ADB: -WORD 0 >; A.ASTR 
~WORD 0 ; A.AO 
-WORD 31004 : A.CWRD 
-WORD 0 ; Dl 
»-WORD 0 > D2 
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7.2.2 Array Subscript Checking 
If the compiler switch option /CK is in effect then each array 
reference will be checked to verify that the array element address is 
within the bounds established for the array by the array declarator. 
The form of the call is: 

1. Push array element address onto stack. 

2. Push address of array descriptor block. 


3. JSR PC,ARYCKS. 


This call preserves all registers. 


7.3 COMPUTED GO TO STATEMENT SUPPORT 
A computed GO TO statement is compiled to a call as follows: 
1. Push address of label list. 


2. Convert index expression value to Integer*2 (if needed) and 
push. 


3. JSR PC,CGOS. 
The FORTRAN statement: 
GO TO (20,1,99,30,10), I+4 
is compiled into the code: 
MOV #CGLST, -(SP) ; address of label list 
MOV I, RO 
ADD #4, RO 


MOV RO, -(SP) 
JSR PC, CGOS 


compute I+4 
push value 
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CGLST: -WORD 5 
- WORD - 20 
- WORD Pat 
- WORD 99 
- WORD - 30 
-WORD -10 


7.4 ASSIGNED GO TO STATEMENT SUPPORT 

An assigned GO TO statement is compiled to a call as follows: 
l. Push assigned label address | 
2. Push address of allowed label list 


3. JSR PC,AGOS. 
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The FORTRAN statement: 
GO TO IV, (20,30,10) 
is compiled into the code: 
MOV IV, -(SP) ; push value 
MOV #AGLST, -(SP) ; push address of label list 
JSR PC, AGOS 


AGLST: - WORD 3 


- WORD - 20 
-WORD - 30 
-WORD -10 


7.5 TRACEBACK CHAIN PROCESSING 


If the compiler command option /TR:NAMES, /TR:BLOCKS or /TR:ALL is’ in 
effect upon entry to the program unit, a call will be made to link the 
program unit name into the OTS name list for producing the error 
traceback information. The form of the call is: 


1. Push last three letters of entry name (represented in 
Radix-50) onto stack. 


2. Load first three letters of entry name into register R4. 
3. JSR R4,NAMS 


The traceback information is maintained on the execution stack. The 
NAM$ returns in a co-routine fashion so that, when the program unit 
finally returns, it actually returns to the NAMS$ routine, which resets 
the stack, removes the name chain link, and then returns to the 
ultimate caller. 


7.6 TASK INITIALIZATION 


The first instruction of every FORTRAN main program is a call to the 
OTS initialization routine as follows: 


JSR PC,OTIS 


This routine initializes the OTS. It issues an SVTK$S directive to 
initialize the synchronous trap table; it calls $STFPP to initialize 
the floating point processor; and it calls .FINIT to initialize FCS 
for I/O operations. It computes the number of available device table 
entries and zeroes them. It copies the error control byte table into 
impure storage. It computes the user I/O buffer length and clears 
miscellaneous words in the work area that must be zero initially. All 
FORTRAN programs are dynamically initialized so that tasks that are 
fixed in memory may be re-executed. 


CHAPTER 8 


OPERATING SYSTEM INTERFACES 


This chapter describes the OTS interfaces to the operating system. 
The OTS performs input/output through File Control Services and relies 
on the Task Builder’ for allocation of impure storage and 
initialization of address pointers. 


8.1 FILE CONTROL SERVICES (FCS) 


All FORTRAN I/O is performed through FCS with synchronous 
record-oriented I/O so as to obtain FCS support of record blocking and 
deblocking. 


Not all of the facilities available in FCS are used. The facilities 
that are used are described below. 


Only 13 entries of FCS are called directly by the FORTRAN OTS. 
However, each of these modules may require additional FCS subroutines. 
The calls to FCS routines are always contained within a single module 
of the OTS. The OTS is partitioned so that no call is made to an FCS 
routine unless required by the FORTRAN program. 


8.1.1 Direct Access Input -- GET$R 


The GETSR macro is invoked from the OTS routine $GETR to perform 
direct access input. 


8.1.2 Direct Access Output -- PUTSR 


The PUTSR macro is invoked from the OTS routine S$PUTR to perform 
direct access output. 


8.1.3 Sequential Input -- GETSS 
The GETSS macro is invoked from the OTS routine $GETS to perform 


sequential input. GET$SS is also invoked by BKSPS to read forward 
after rewinding the unit. 


8.1.4 Sequential Output -- PUTSS 


The PUTS$S macro is invoked from the OTS routine S$PUTS to perform 
sequential output. 
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8.1.5 File Open Processing -- OFNBS 


All file open operations are performed by OFNBS$. This means that if 
the filename parsing logic is not required, i.e., FORTRAN default file 
names are used, the routines for filename parsing are not included in 
the task. The OFNBS macro is invoked from the OTS routine SOPENS. 


8.1.6 Default Directory Processing -- .GTDID 


This routine is called by SOPENS to obtain the default directory for 
use in constructing the filename block for use by OFNBS. 


8.1.7 File Name Block Processing -- .PARSE, CSI$1 and CSI$2 
All of these routines are required if a user~specified file 


specification is to be used rather than the FORTRAN default filenames. 
These modules are called by S$FNBST. 


8.1.8 File Positioning -- .POINT 


The OTS routines REWIS and BKSPS call .POINT to reposition the file to 
the beginning (byte 0, virtual block 1). 


8.1.9 Direct Access Record Positioning -- .POSRC 


The OTS routine S$PUTRI calls .POSRC to position the file to a 
specified record for a direct access write. 


8.1.10 File Close Processing -- CLOSES 
The OTS routine SCLOSE invokes the CLOSES macro to close a file. 


8.1.11 File Deletion -- .DLFNB 


The OTS routine SCLOSE calls .DLFNB to delete a file. 


8.1.12 File Printing -- .PRINT 
The OTS routine SCLOSE calls .PRINT to print and delete a file. 


8.1.13 Register Save and Restore -- .SAVR1 


Several OTS routines call .SAVR1 to save and restore registers Rl 
through R5 in co-routine fashion. 
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8.2 OVERLAYING THE OTS AND FCS 


Because the I/O portion of the OTS is composed primarily of two parts, 
a natural overlay structure is to do file processing (open/close) on 
one branch and record processing (read/write) on the other. The 
following notes indicate potential problems and suggestions. 


8.2.1 File Processing Overlay Notes 


Because the OPEN statement (OPENS) requires S$CLOSE, these modules’ can 
not overlay each other, nor can the FCS routines .CLOSE, .PRINT, or 
-DLFNB overlay OPENS. If OPENS is not used, $CLOSE may be on its own 
overlay branch. 


SFNBST is the only routine that calls the system filename parsing 
routines, therefore a sub-tree with .CSI1 and .CSI2 on one branch and 
-PARSE on the other is an effective space saving arrangement. 


8.2.2 Record Processing Overlay Notes 


Because SINITIO is called by all I/O initialization modules and also 
references SOPEN, it should always be resident in the root. 


SIOELEM and SIOARY should be root resident. 


If formatted I/O is used, several constraints exist. The format 
processors ($FIO, $LSTI, $LSTO) must be in the same overlay segment as 
the format conversion routines ($CONVI, SCONVL, $CONVR). Either the 
record processors (S$GETS, $PUTR, etc.) or the format processors must 
be root resident, or they must be in the same overlay segment. 


If user code on more than one overlay does formatted I/O, the format 
processor should be root resident. 


If an associated variable is declared for a direct access file, it 
must be root resident. 


8.3 TASK BUILDER OPTIONS 


At Task Build time, the Task Builder links in the FORTRAN impure area 
and, at the user's option, extends the impure storage. 


8.3.1 UNITS=n 


This specification causes the PSECT SSDEVT to have a size of n * F.FDB 
bytes. The value of n is stored at offset W.LUNS, the address of 
SSDEVT is at offset W.DEV and the address of the end of SSDEVT is at 
offset W.DEVL. The value of F.FDB is determined by the OTS to be the 
length of the FCS FDB (S.FDB) plus the length of the FORTRAN header 
(D.FDB). The Task Builder default value for n is 6. 
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8.3.2 ACTFIL=n 


This specification causes the PSECT S$SFSR1 to have a size of n*F.BFHD 
bytes. The value of F.BFHD is determined by the OTS to be the length 
of the FCS buffers (S.BFHD). The Task Builder default value for n is 
4. 


8.3.3 MAXBUF=n 


This specification causes the PSECT $SIOBl1 to be n bytes long. The 
address of S$S$IOB1 is stored at offset W.BFAD and the end address at 
offset W.BEND. The minimum and default value for n is 132. This 
value is the user record buffer length. 


8.3.4 FMTBUF=n 
This specification causes the PSECT SSOBFl1 to be n_ bytes’ long. The 


address of S$SOBFl1 is stored at offset W.OBFL and the end address at 
offset W.OBFH. The minimum and default value for n is 64. 


8.3.5 ASG=dvin 


This specification causes logical unit n to be initially assigned to 
device dv. 


CHAPTER 9 


OTS SYSTEM GENERATION AND TAILORING 


The OTS is built during the installation process as described in the 
FORTRAN IV-PLUS Installation Guide. The material in this Chapter 
gives a more detailed explanation of the installation options, as well 
as information on building the OTS from sources. 


9.1 ASSEMBLY OPTIONS 


All assembly options are determined by the definition Or 
non-definition of a symbol. 


There are two operating system assembly options, two hardware assembly 
options and three special assembly options. No two options affect the 
same module, thus options can be combined. 


9.1.1 Operating System Options 


The two system option symbols are RSXD for RSX-11D V6 and IAS Vl, and 
RSXM for RSX-11M V2. The following modules are affected: 


SOTV - impure area allocation 
SERRMO - error report interface 
SERRLOG - error report construction 
SERRPT - error processor 


The modules SERTXT and $SHORT are used only with RSX-11M. 


9.1.2 EIS Instruction Set Option 


The two hardware options are defined by the symbol FPP. If FPP is not 
defined, then the OTS can be used on an 11/45 or 11/40 with EIS, 
provided no floating point computations are attempted. (See Section 
4.4.1 of the FORTRAN IV-PLUS User's Guide.) 


The modules affected are: 


SMLJ - Integer*4 multiplication 
SDVJ - Integer*4 division 
SJMOD - Integer*4 modulo 


SFPPUTI - FPP save/restore and initialization 
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9.1.3 Double Precision Arithmetic Option 


The symbol F4PDP is used to assemble certain mathematical functions in 
double precision mode. 


The modules affected are: 


SASIN -—- arc sine 

SACOS - arc cosine 

STAN - tangent 

S$SINH - hyperbolic sine 
S$COSH - hyperbolic cosine 
STANH -—- hyperbolic tangent 


9.1.4 Floating Point Format Conversion Option 


The symbol FPP is also used to define the floating point output 
conversion module that utilizes the FPP. 


The module affected is: 


SCONVR - floating point format conversion 


9.1.5 No-I/O OTS Subset Option 


The symbol NONIO is used to define a subset of the OTS that cannot 
perform FORTRAN input/output. 


The modules affected are: 
SOTV - impure area allocation 


SOTI - task initialization 
SCLOSE - file close processor 


9.2 OTS ASSEMBLY MACROS 


The OTS data base, PSECT attributes and errors are defined at assembly 
time by the following macros contained in the parameter file F4P.MAC. 


9.2.1 OTSWA Macro 


This macro defines the work area offsets. These offsets are described 
in Appendix A. 


9.2.2 ERRDEF Macro 


This macro defines the OTS errors, error control byte control bits and 
the error message text. 


9.2.3 FBLOCK Macro 


This macro defines the FFDB offsets, the FCS FDB offsets and the 
QIOSYM values. The FFDB offsets are described in Appendix B. 
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9.2.4 SAOTS Macro 


This macro obtains the impure area pointer from location S$OTSV 
places it in a register, usually R3. 


9.2.5 OTSsI Macro 


This macro defines the OTS code PSECT S$SOTSI. 


9.2.6 OTSSD Macro 


This macro defines the OTS pure area PSECT SSOTSD. 


9.2.7 ADBDEF Macro 


This macro, defined in the parameter file ADBDEF.MAC, defines 
array descriptor block offsets and the data type codes. 


and 


the 
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IMPURE STORAGE OFFSET DEFINITIONS 


This Appendix briefly describes each of the named offsets in _ the 
FORTRAN impure storage area. 


OFFSET SIZE MEANING 
(Decimal Bytes) 


W.SEQC 2 Current sequence number 

W.NAMC 2 Listhead of traceback chain 

W.LUNS 2 Number of FFDBs 

W.MO 2 LUN used for error reporting 

W.BFAD 2 User record buffer address 

W.BLEN 2 User record buffer length 

W.BEND 2 User record buffer end address +1 

LNBUF 2 Address of active buffer 

W.QIO 2 Address of QIO DPB used for error reports 

W.DEV 2 Address of FFDB table 

RECIO 2 Address of active I/O record processing routine 

FMTAD z Current address in format 

FILPTR 2 Address of active FFDB or 0 

EOLBUF 2 Current buffer end address +1 

FMTCLN 2 Value of SP at entry to current I/O operation, 
used for error recovery 

BLBUF 2 Address of next data byte in current buffer 

PSCALE 2 Floating point scale factor 

FSTKP 2 Pointer to current format pushdown entry 

W.LICP 2 Pointer to current data value for list-directed 
input 

FSTK 32 Base of 16-word pushdown stack for format 
processing 

W.LICB 10 List-directed input current data value block 

NOARG 2 Object time format compiler argument count 

PARLVL 2 Object time format compiler parentheses depth 

NUMFLG 2 Object time format compiler argument number 
flag word 

FMTRET 2 Format reversion pointer 

VARAD 2 Current I/O list element address 

TSPECP 2 Current maximum line length 

TYPE 2 Format code type flag 

REPCNT 2 Repeat count for current format code 

UNFLGS 2 Flag word for unformatted I/0 

LENGTH Z Format width (w of w.d) 

D 2 Format decimal part (d of w.d) 

ITEMSZ 2 Current I/O list element size in bytes 

DOLFLG 1 Dollar format encountered flag 

COUNT 2 No. of array elements to transfer or no. of 
stack arguments for ERR= during OPEN and 
CLOSE statements 

RACNT 2 No. of bytes left in direct access unformatted 
record 

FMTLP 2 Infinite format loop flag 


IMPURE STORAGE OFFSET DEFINITIONS 


OFFSET SIZE 
(Decimal Bytes) 


MEANING 


UNCNT Unformatted sequential read record size 

DENCWD 2 No. of records permitted for this I/0 
operation; 0 if no limit 

W.PC 2 Saved PC value for traps 

EXADDR 2 User exit routine address 

ENDEX 2 Address for END= return 

ERREX 2 Address for ERR= return 

W.ECNT 2 Task error limit count 

W.ERNM 2 Last error number that occurred 

W.MAIN 2 FOR traceback word - spare but reserved 

W.OPFL 2 OPEN/CLOSE statement error flag 

W.ERLN 2 Address of error message text buffer 

W.ERLE 2 Address of end of error message text buffer 

W.TKNP 2 Address of task name - used by GTSKSS 
directive 

W.ERTB 2 Address of error control byte table 

W.FERR 2 F.ERR value of latest I/O error 

W.FERI 2 F.ERR+1 value of latest I/O error 

W.SST 2 Address of SST table 

W.OBFL 2 Address of object time format buffer 

W.OBFH 2 Address of end of object time format buffer 

W.ERUN 2 Unit number of latest I/O error 

W.FPST 2 FPP status save word 

W.EXJ 2 I/O co-routine exchange jump location 

W.PNTY 1 VFE mask byte 

W.IOEF 1 Special error handling flag 

W.R5 2 User's R5 value 

W.VTYP 2 I/O list element data type code 

W.RECL 2 Direct access record number (low order) 

W.RECH 2 Direct access record number (high order) 

W.FPPF 1 FPP present flag byte 

W.DFLT 1 Default format code byte 

W.LNMP 2 Number of negative mappable LUNS (4) 

W.PRNT 2 Actual LUN for LUN -1l 

W.TYPE 2 Actual LUN for LUN -2 

W.ACPT 2 Actual LUN for LUN -3 

W. READ 2 Actual LUN for LUN -—4 

W.MOPR 2 Address of MO parameter list 

W.MOV1 2 lst string length in MO parameter list 

W.MOAI1 2 lst string address in MO parameter list 

W.MOV2 2 2nd string length in MO parameter list 

W.MOA2 2 2nd string address in MO parameter list 

W.MOTC 2 No. of MO traceback levels 

W.MOTR 2 Start of MO traceback chain (wd 1) 

W.MOT2 2 Start of MO traceback chain (wd 2) 

W.MOTY 1 Error message mode byte 

W.DEVL 2 Address of device table end 

W.CPXF 1 Complex I/O list item flag byte 

W.NULL 1 List-directed input null flag (slash seen) 

W.END = End of named work area offsets 

Offsets FSTKP and W.LICP occupy the same memory location. 

Offsets FSTK and W.LICB begin at the same memory location. 

Offsets NOARG, PARLVL and NUMFLG begin at offset FSTK. 

Offsets RACNT, FMTLP and UNCNT occupy the same memory location. 

Offsets 


REPCNT and UNFLGS occupy the same memory location. 


APPENDIX B 


FFDB OFFSET DEFINITIONS 


This Appendix summarizes the FORTRAN header portion of the FORTRAN 
File Descriptor Block. Consult the operating system's I/O Operations 
Reference manual for the description of the FCS FDB. 


NAME SIZE MEANING 

(Bytes) 
D.STAT 2 Status word 1] 
D.STA2 2 Status word 2 
D.RCNM 2 Direct access record count (low order) 
D.RCCT 2 Sequential record count (low order) 
D.RCN2 2 Direct access record count (high order) 
D.RCC2 2 Sequential record count (high order) 
D.AVAD 2 Associate variable address 
D.SPAR 2 Reserved spare word 
D.FDB = Start of FCS FCB 


Offsets D.RCNM and D.RCCT occupy the same memory location. 
Offsets D.RCN2 and D.RCC2 occupy the same memory location. 


This Appendix is a guide to the approximate sizes of all 
in the FORTRAN IV-PLUS OTS. 
identified by 


and 


allocation maps. 


If the module size for RSX-11M is different from that for RSX-11D, the 


the 


APPENDIX C 


OTS SIZE SUMMARY 


TITLE as 


RSX-11M value is enclosed in parentheses. 


C.1 MODULES ALWAYS PRESENT 


SOTI 

SCLOSE 
SERRPT 
SERRLO 
SERRMO 
SERTXT 
SFPERR 
SFPPUT 
$R50 

SOTV 


shown in 


the 


Modules are grouped by related function, 
Task Builder 
All object module sizes are shown in decimal words. 


Module Size in 
Decimal Words 


OTS Initialization 


Close 
Error 
Error 
Error 
Error 
FPP In 
FPP Ut 


files 


reporting 


message 
message 
message 
terrupt 
ilities 


logging 
output 
ASCII text 
handler 


Radix-50 to ASCII 
OTS Impure area (by PSECT) 


SSAOTS 
SSDEVT 


SSFSR1 
SSIOB1 
SSOBF1 


SSFSR2 
SSOTSI 


Common Work Area 
Logical Unit Control 
Table (Size=UNITS*54) 


FCS 


Buffer area 


(Size=ACTFIL*264) 


I/O 


Buffer 


(Size=max (MAXBUF, 66) ) 
Object Time Format Buffer 
(Size=max (FMTBUF, 32) ) 


FCS 


impure area 


Mixed FORTRANS trap 


SOTV Total (maximum) 


(If UNITS=0 and ACTFIL=0, minimum 
SOTV size is 376 (352) words) 


76 
46 
244 


324 
1056 


1756 


(321) 
(296) 
(36) 


(933 or 1) 


(231) 


(1732) 


OTS SIZE SUMMARY 


C.2 COMMON I/O SUPPORT 


The following modules are used by all I/O operations. 


Module Size in 
Decimal Words 


SOPEN Default File Open 246 
SINITI Initialize Read/Write 138 
SIOELE I/O Element Transmission 155 
SFCHNL Find Logical Unit Control Block 61 
SSAVRG Register Save/Restore 53 

Total 653 
SIOARY Array I/O Transmission 72 


C.3 FORMAT PROCESSING ROUTINES 
The following routines are used by formatted I/O. 


Module Size in 
Decimal Words 


SFIO Format Interpreter 724 
SLSTI List-Directed Input 421 
SLSTO List-Directed Output 205 
SCONVL Logical Conversions (1) 35 
SCONVI Integer and Octal Conversions (1) 162 
SCONVR Real Conversions (1) 558 
SFMTCV Object Time Format Compiler (used 326 


only for formats stored in arrays) 


C.4 SEQUENTIAL INPUT/OUTPUT 


The following modules are needed for sequential input/output 
statements. 


Module Size in 
Decimal Words 


SISU Sequential Unformatted READ 76 
SOSU Sequential Unformatted WRITE 78 
SISF Sequential Formatted READ (2) 29 
SOSF Sequential Formatted WRITE (2) 36 
SISL List-Directed READ (2) 46 
SOSL List-Directed WRITE (2) 38 
SGETS Get Sequential Record 34 
SPUTS Put Sequential Record 16 


(1) Loaded only if needed or if list-directed or object time format is 
used. 
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C.5 DIRECT ACCESS INPUT/OUTPUT 


The following modules are used for direct access input/output 
statements. 


Module Size in 
Decimal Words 


SIRU Direct Access Unformatted READ 38 
SORU Direct Access Unformatted WRITE 40 
SIRF Direct Access Formatted READ (2) 33 
SORF Direct Access Formatted WRITE (2) 35 
$GETR Get Direct Access Record 17 
SPUTR Put Direct Access Record 50 
SCKRCN Check Record Number, Update 42 


Associated Variable 


C.6 OTHER I/O SUPPORT 


Module Size in 
Decimal Words 


SBACKS BACKSPACE Statement 75 
SCLSST CLOSE Statement 152 
SDEFF DEFINEFILE/FIND Statements 64 
SENCDE ENCODE/DECODE Statements (2) 43 
SENDF ENDFILE Statement 32 
SFNBST File Name Block Setup 70 
SOPNST OPEN Statement 433 
SREWIN REWIND Statement 35 


C.7 I/O RELATED SUBROUTINE CALLS 


Module Size in 
Decimal Words 


SASSIG ASSIGN Subroutine 49 
SCLSCA CLOSE Subroutine 9 
SEXIT EXIT Subroutine 2 
SFDBSE FDBSET Subroutine 95 


C.8 MISCELLANEOUS COMPILED-CODE SUPPORT 


Module Size in 
Decimal Words . 


SAGO Assigned GO TO Statement 12 
SARYCK Array Subscript Checking 12 
$CGO Computed GO TO Statement 18 
SMADB1 1-Dimensional Adjustable Array 34 
SMADB2 2-Dimensional Adjustable Array 56 
SMADBN N-Dimensional Adjustable Array 58 
SNAM Traceback Chain Processing 15 
SSTPPA STOP/PAUSE Statements 31 


(2) Requires format processing routines. 
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OTS SIZE SUMMARY 


C.9 PROCESSOR-DEFINED FUNCTIONS 


SJSHFT 
SJSIGN 


Real Absolute Value 
Arc Cosine 
Imaginary Part 


Real Tr 


uncation 


Real Log 

Maximum of Reals 
Minimum of Reals 
Real Modulo 


Real and Double Nearest Integer 


Arc Sine 


Arc Tan 
Complex 
Complex 
Complex 
Complex 
Complex 
Hyperbo 
Complex 
Complex 
Double 
Double 
Double 
Double 
Double 
Double 
Double 


gent 
Absolute Value 
Exponential 
Logarithm 
From Reals 
Conjugate 
lic Cosine 
Sine 
Square Root 
Absolute Value 
Arc Cosine 
Arc Sine 
Arc Tangent 
From Real 
Hyperbolic Cosine 
Positive Difference 


Positive Difference 


Double Truncation 
Double Logarithm 
Minimum of Doubles 
Double Modulo 

Double Product of Reals 
Double Transfer of Sign 
Double Sine 

Real Exponential 
Internal Service Entry 


Integer*2 
Integer *4 


to Real 
to Real 


Real to Integer*4 


Integer*2 Absolute Value 
Integer*2 AND 

Integer*2 Positive Difference 
Integer*2 Exclusive OR 

Real to Integer*2 

Integer*2 Modulo 

Integer*2 NOT 

Integer*2 Inclusive OR 
Integer*2 Shift 

Integer*2 Transfer of Sign 
Integer*4 Absolute Value 
Integer*4 AND 

Integer*4 Positive Difference 
Integer*4 Exclusive OR 
Integer*4 Minimum and Maximum 
Integer*4 Modulo 

Integer*4 NOT 

Integer*4 Inclusive OR 
Integer*4 Shift 

Integer*4 Transfer of Sign 


Cc-4 


Module Size in 
Decimal Words 


7 
52 
6 

9 
66 
49 
24 
15 
24 
47 
120 
51 
38 
28 
9 
10 
77 
51 
66 
9 
54 
49 
158 
7 
79 
17 
13 
; 
96 
36 
17 
12 
15 
116 


OTS SIZE SUMMARY 


$MAX0 Integer*2 Maximum 10 
SMINO Integer*2 Minimum 10 
SNINT Nearest Integer 19 
SREAL Real From Complex 5 
SRIJMIX Real Maximum or Minimum of Integer*4 27 
S$SIGN Real Transfer of Sign 11 
SSIN Real Sine 94 
SSINH Hyperbolic Sine 77 
SDSINH Double Hyperbolic Sine 79 
SSNGL Real From Double 14 
SSORT Square Root 43 
STAN Real Tangent 20 
SDTAN Double’ Tangent 22 
STANH Hyperbolic Tangent 76 
$DTANH Double Hyperbolic Tangent 78 
C.10 COMPILED-CODE ARITHMETIC SUPPORT (R4 CALLS) 


Module Size in 
Decimal Words 


SADC Add/Subtract Complex 29 
SCMC Compare Complex 22 
SDVC Divide Complex 38 
SDVJ Divide Integer*4 26 
SMLC Multiply Complex 27 
SMLJ Multiply Integer*4 24 
SNGC Negate Complex 16 
$PWCJ Complex to Integer Exponentiation 158 
$PWDD Floating to Floating Exponentiation 71 
SPWII Integer*2 to Integer*2 Exponentiation 53 
SPWJJ Integer*4 to Integer*4 Exponentiation 1:39 
SPWRI Floating to Integer Exponentiation 111 
SPWRR Real to Real Exponentiation 55 
SSWPXY Stack Swap 95 
STSC Test Complex 16 
C.11 SERVICE SUBROUTINES 
Module Size in 
Decimal Words 

SDATE DATE 70 
SERRSE ERRSET 95 
SERRSN ERRSNS 30 
SERRTS ERRTST 22 
SIDATE IDATE 29 
SIRAD5 IRAD50 15 
SR50AS R50ASC 6 
SRAD50 RAD50 ll 
SRAN RAN 7 
SRANDU RANDU 1l 
SSECND SECNDS 37 
STIME TIME 43 
SUSERE USEREX 6 


OTS SIZE SUMMARY 


C.12 OPTIONAL MODULES 


Module Size in 
Decimal Words 


SCONVR Real Format Conversions(FPP Version) 523 
SFPPUT EIS Version 

SSHORT Null Error Message Text 1 
SERRLO Null Error Message Logging 1 
SCLOSE No I/O OTS Version 2 
SOTV No I/O OTS Version 274 
SOTI No I/O OTS Version 50 
SMLJ EIS Version 58 
SDVJ EIS Version 75 
SJMOD EIS Version 25 


= 
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Lal, 3-1 
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Conversion (cont.), 
logical, 4-6 
octal, 4-6 
real, double precision, and 
complex, 4-7 
CSIS$S1, 8-2 
CSI$2, 8-2 


Data, OTS Pure, 2-1 
Data type, list element, 4-5 
Decimal notation, vii 
Decimal part byte, 4-2 
DECODE statement, 3-7 
DEF$, 3-7 
Default 
directory processing, 8-2 
filename generation, 3-16 
formats, 4-3 
OPEN, 3-3 
DEFES, 3-7 
DEFINEFILE statement, 3-13 
Definitions, 
FFDB offset, B-l 
FFDB status bit, 2-4 
impure storage offset, A-1l 
SDET, 5-3 
Determining subscript values, 
2-6 
SDETIC, 5-3 
Device table, 2-1 
logical unit, 2-2 
SSDEVT, 2-2 
Dimension Spans, Array, 2-6 
Direct access 
input, 3-6, 3-8, 3-15, 8-1 
I/O, unformatted, 3-8 
output, 3-6, 3-8, 3-16, 8-1 
record number checking, 3-16 
record positioning, 8-2 
DISPOSE, 3-11, 3-13 
.-DLFNB, 8-2 
Dollar sign ($), 1-6 
Double Precision Arithmetic 
Option, 9-2 
DVJt$, 7-3 


EIS Instruction Set Option, 
9-1 
Element transmission, 3-4 
call, l-l, 3-1 
entry names, 3-4 
ENCODE statement, 3-7 
ENDFILE statement, 3-15 
End-of-list 
call, 3-1 
processor (SEOLST), 3-1 


SENFE, 3-7 
ENFS, 3-7 
Entries, I/O Initialization, 3-5 
Entry names, element transmis- 
sion, 3-4 ; 
Entry point names, external, 1-6 
SEOLST (end-of-list) processor, 
3-1 
ERR, 3-11, 3-13 . 
SERRAA, 5-1 
ERRDEF macro, 9-2 
SERRLG, 5-1, 5-2 
SERRNL, 5-3 
Error 
control byte processing, 5-1 
control table, 2-3 
message processing, 5-2 
message text buffer, 2-3 
processing, 2-4 
format conversion, 4-8 
routines, 1-2 
user interfacing to, 5-4 
W.IOEF, 5-2 
recovery methods, 1-2 
Errors, 
fatal, 2-5 
Floating Point Processor (FPP), 
5-3 


SERRW1, 


“SERRZA, 5-3 


Execution Control Subroutines, 
6-2 

EXIT, 6-3 

Exponentiation, 7-2 

Expression (VFE), variable 
format, 4-1 

EXTENDSIZE, 3-12 

External entry point names, 1-6 


Fatal Errors, 2-5 

FBLOCK macro, 9-2 

SFCHNL, 3-2 

FCS (File Control Services), 8-l 
overlaying the OTS, 8-3 

F/D (Floating/Double precision), 

1-4 

FDBSET, 6-2 

FFDB 
offset definitions, B-1 
offsets, 2-3 
status bit definitions, 2-4 

Field Width byte, 4-2 
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File FORTRAN IV (FOR) compatibility, 

close, 3-3 1-6 — 
close processing, 8-2 FORTRAN IV-PLUS OTS, 1-1. 
control services (FCS), 8-1 FPP (Floating Point Processor) © 
deletion, 8-2 errors, 5-3 
name block initialization, FSTK, offset, 4-4 

3-16 FSTKP, offset, 4-4 ; 
name block processing, 8-2 Functions, processor-defined, 
name generation, default, 6-1, Cc-4 

3-16 FO calls, 1-3, 1-5 


open processing, 8-2 

positioning, 8-2 

printing, 8-2 

processing overlay notes, 8-3 GBL (global) attribute, 2-2 


"READONLY', 3-3 General processor registers, 1-3 
"SCRATCH', 3-3 Generation, Default File Name, 

SFILL, 5-3 3-16 

FILPTR, 3-1 GETSR, 8-1 

FIND statement, 3-14 GETSS, 8-1 

SFIO, 4-4 SGETFILE, 3-2 

SSFIOC, 2-2, 4-4 SGETR, 3-15 

SSFIOD, 2-2, 4-4 SGETS, 3-15 

SSFIOI, 2-2, 4-4 Global (GBL) attribute, 2-2 

SSFIOL, 2-2, 4-4 Global symbol 

SSFIOR, 2-2, 4-4 SOTSV, 1-7 

SSFIO2, 2-2, 4-4 SOTSVA, 1-7 

SFLDEF, 3-16 -GTDID, 8-2 


Floating Point 
format conversion option, 9-2. 
processor accumulators, 1-3 
processor (FPP) errors, 5-3 Hollerith formats, 4-2 
status bits, 1-4 
FMTAD, offset, 4-6 
FMTBUF, 8-4 


FMTCVS, 4-1 ICIS, 4-6 
FMTCVS (Object-time format) IcO$, 4-6 
compilation, 1-6 I/L (integer/long integer), 1-4 
processing routines, 4-6 Impure 
SFMTCVS, 4-5 area, FORTRAN, 1-7 
SFNBST, 3-16, 8-3 storage offset definitions, A-1l 
Format, 3-11 storage, OTS, 2-1 
buffer, object-time, 2-2 INFO, 3-9 
code, 4-1 Initialization, 
byte, 4-2 adjustable array, 1-6 
form, 4-1 call, 1-1, 3-1 
codes, 4-3 entries, I/0, 3-5 
conversion error processing, filename block, 3-16 
4-8 (NAMS) traceback name, 1-6 
conversion, PSECTs, 2-2 segment, 3-6 
expression (VFE), variable, task, 7-6 
4-1 INITIALSIZE, 3-12 
language, compiled, 4-1 SINITIO, 3-3 
processing PSECTs, 4-4 Input, 
processor, 4-4 direct access, 3-6, 3-8, 3-15, 
strings, quoted, 4-2 8-1 
Formatted I/O, 3-6, 4-4 list-directed, 3-6 
Formats, processor, list-directed, 4-5 
default, 4-3 . sequential, 3-6, 3-8, 3-15, 8-1 
Hollerith, 4-2 . Instructions, OTS, 2-1 
FORTRAN impure area, 1-7 Integer conversion, 4-6 


Index-3 


INDEX (Cont.) 


INTEGER*4 operations, 7-3 
Interfacing to Error Processing, 
User, 5-4 
Interfacing to Terminal Message 
Output, User, 5-4 
I/O 
errors, 2-5 
formatted, 3-6, 4-4 
initialization, 3-3 
initialization entries, 3-5 
processing, 3-1 
processing routines, 1-1 
related subroutines, 6-2 
unformatted direct access, 3-8 
unformatted sequential, 3-7 
IOAAS, 3-4 


Keyword, 3-11 
summary of argument blocks by, 
3-10. . 
Keyword identification number, 
3-9 


LINES, 2 
List-directed, 
input, 3-6 
processor, 4-5 
output, 3-7 
processor, 4-5 
List element data type, 4-5 
Logical 
conversions, 4-6 
unit device table, 2-2 
units, 2-3 
Lowercase characters, vii 
SLSTI, 4-5 
SLSTO, 4-5 


OTSWA, 9-2 
Mathematical functions, 1-2 
MAXBUF, 8-4 
MAXREC, 3-12 
Message 
construction utilities, 5-2 
output task (MO), 5-2 
utilities, 5-3 
output, user interfacing to 
terminal, 5-4 
processing, 5-2 
MLJt$, 7-3 


MO (Message Output) task utilities, 
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NAME, 3-12 

Name, initialization (NAMS) 
traceback, o-6 

NAMES, 2-8 

Names, 


element transmission entry, 3-4 


external entry point, 1-6 
offsets, 2-3 
No-I/O OTS subset option, 9-2 
NONE, 2-8 
NOSPANBLOCKS, 3-12 
Notation, 
decimal, vii 
octal, vii 
Null arguments, 1-4 


SSOBFI, 2-2 
Object-time format 
buffer, 2-2 
compilation (FMTCVS), 1-6 
compiler, 4-5 
Object time system summary, 1-1 
octis, 4-6 ‘ 
Ocos 7 4-6 
Octal 
conversion, 4-6 
notation, vii 
Offsets, 
ADB, 2-5 
definitions, impure storage, 
A-1 
FFDB, 2-3, B-1l 
FMTAD, 4-6 
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Offsets (cont.), 


FSTK, 4-4 

FSTKP, 4-4 

names, 2-3 

work area, 3-1 

OFNBS, 8-2 
OPEN (OPENS) statements, 1-6, 
3-3, 3-9, 3-11 
Operating System Options, 9-1 
Options, 

assembly, 9-1 

double precision arithmetic, 
9-2 

EIS instruction set, 9-l 


floating point format conver- 


sion, 9-2 

non-I/O OTS subset, 9-2 

operating system, 9-1 
ORFS, 3-6 
ORFES, 3-6 
ORUS, 3-8 
ORUES, 3-8 
OSFS, 3-6 
OSFES, 3-6 
OSLS$, 3-7 
OSLES, 3-7 
OSUS, 3-8 
OSUES, 3-8 
Other errors, 
OTS 

and FCS, overlaying the, 8-3 

FORTRAN IV-PLUS, 1-1 

impure storage, 2-1 

instructions, 2-1 

pure data, 2-1 

size summary, 
SSOTSD, 2-1 
OTSSD macro, 
SSOTSI, 2-1 7 
OTSSI macro, 9-3 
SOTSV, global symbol, 1-7 
_OTSVA,global symbol, 1-7 
OTSWA macro, 9-2 
Out-of-line arithmetic opera- 


2-5 


C-1 


9-3 


tions, 7-1 
Output, 
direct-access, 3-6, 3-8, 3 16, 
8-1 
list-directed, 3-7 
processor, list-directed, 4-5 
sequential, 3-6, 3-8, 3-15, 
8-1 
Overlay notes, 
file processing, 8-3 


record processing, 8-3 


Overlaying the OTS and FCS, 8-3 


Parameter Block, QIO Directive, 
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PRINT statements, 3-7 
Processing, ; 

continuation-type, 5-1 

default directory, 8-2 

error control byte, 5-1 

error message, 5-2 

filename, 8-2 

file name block, 8-2 

file open, 8-2 

message, 5-2 

routines, FMTCVS, 4-6 

Stop and Pause statement, 5-3 

trap instruction, 5-1 
Processor . 

SEOLST (end-of-list), 3-1 

list-directed input, 4-5 

list-directed output, 4-5 

$SST6, trap instruction, 5-1 
Processor-defined functions, 

6-1, C-4 
Program in Assembly Language, 
Writing a FORTRAN Main, 1-7 

Program sections (PSECTs), 1 
PSECTs (program sections) ,. 1 

format conversion, 2-2 

format processing, 4-4 

names, 2-2 
Pure data, OTS, 
SPUTR, 3-16 
PUTSR, 8-1 
SPUTRI, 3-16 
SPUTS, 3-15 
PUTSS, 8-1 
PWxxt$, 7-2 
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QTO Directive Parameter Block, 
2-3 


QIO, terminal, 5-2 

Quoted format strings, ase 

Range checking, 4-2 

RCI$, 4-7 7 

"READONLY' file, 3-3, 3-11 

Real, Double Precision and 
Complex Conversions, 4-7 

SREAMO, 5-3 

Record 


buffer, user, 2-2 
number checking, direct access, 
3-16 


positioning, direct access, 8-2 
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Record (cont.), 
processing overlay notes, 8-3 
processing segment, 3-6 
RECORDSIZE, 3-11 
Register assignments, 3-2 
Register Save and Restore, 3-17, 
8-2 
Registers, general processor, 
1-3 
Repeat Count Byte, 4-2 
Restore, Register Save and, 3-17, 
8-2 
REWIND statement, 3-15 
R4 calls, 1-3, 1-5 
R5 calls, 1-3 
SR50AB, 5-3 
SR50AS, 5-3 
Routines, 
compiled-code support, 1-2, 
7-1 
error processing, 1-2 
FMTCVS$ processing, 4-6 
I/O processing, 1-1 


Save and Restore, Register, 3-17, 
8-2 
SSAVPx, 3-17 
-SAVRI, 8-2 
'"SCRATCH' file, 3-3 
Segment, 
initialization, 3-6 
record processing, 3-6 
SSEQC, 2-8 
Sequéntial 
I/O, unformatted, 3-7 
input, 3-6, 3-8, 8-l 
output, 3-6, 3~8, 3-15, 8-1 
Service subroutines, C-5 
SHARED, 3-12 
Size Summary, OTS, C-l 
Stack swap operations, 7-3 
Statement, 
ACCEPT, 3-7 
BACKSPACE, 3-14 
CLOSE, 1-6, 3-13 
DECODE, 3-7 
DEFINE FILE, 3-13 
ENCODE, 3-7 
ENDFILE, 3-15 
FIND, 3-14 
OPEN, 1-6, 3-9, 3-11 
PRINT, 3-7 
processing, Stop and Pause, 
5-3 
REWIND, 3-15 
TYPE, 3-7 
Status bit definitions, FFDB, 2-4 
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Status bits, floating point, 1-4 
Stop and Pause statement process- 
ing, 5-3 
Storage 
offset definitions, impure, 
A-1 
OTS impure, 2-1 
Subroutine calls, type of, 1-1 
Subroutines, 
execution control, 6-2 
I/O-related, 6-2 
service, C-5 
Subscript 
checking, array, 7-5 
values, determining, 2-6 
Summary 
Object Time System, 1-1 
of Argument Blocks by Keyword, 
3-10 
OTS size, C-1l 
Support, 
array processing, 7-4 
assigned GO TO statement, 7-5 
computed GO TO statement, 7-5 
routines, compiled-code, 7-1 
SWPxy$, 7-3 
Symbol, global 
SOTSV, 1-7 
SOTSVA, 1-7 
Synchronous System Trap Vector 
table, 2-3 
System subroutines, 1-2 


Table, 
device, 2-1 
Error Control, 2-3 
Task initialization, 7-6 
Terminal Message Output, User 
Interfacing to, 5-4 
Terminal QIO, 5-2 


_ Termination call, 1-2 


Traceback chain, 2-7 
name initialization (NAMS), 
1-6 
processing, 7-6 
Trap 
instruction processing, 5-1 
instruction processor, $SST6, 
5-1 
instructions, 2-4 
vector table, synchronous 
system, 2-3 
TYPE, 3-11 
TYPE statements, 3-7 
Types of subroutine calls, 1-1 
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Unformatted direct access I/O, 
3-8 

Unformatted sequential I/O, 3-7 

Update, associated variable, 


3-16 
Uppercase characters, vii 
User 
interfacing to error process- 
ing, 5-4 


interfacing to terminal mes- 
sage output, 5-4 
record buffer, 2-2 
USEREX, 6-3 
Utilities, 
message construction, 5-2 
message output task, 5-3 


VARAD, 3-1 

Variable format expression (VFE), 
4-1 

Variable update, associated, 
3-16 

Vector table, synchronous system 
trap, 2-3 

VFE implementation, 4-2 

VFE mask byte, 4-1 


W.EXJ, 3-1 

W.IOEF, work area offset, 5-2 
error processing, 5-2 

Work area, 2-1 
offset (W.IOEF), 5-2 
offsets, 3-1 

Writing a FORTRAN Main Program 

in Assembly Language, 1-7 
W.TYP, 3-1 
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